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THE magazine for TRS-80* users 



Printers Apprentice: Instant and accurate quotes. Pg> 22. 



Biorhythms: 

Your physical, 
mental and 
emotional state 
displayed. Pg. 117. 

Investment 
Analysis: 

Calculate your 
potential Return 
on Investment, in 
minutes. Pg. 28. 

Artificial 
Intelligence: 

A self modifying 
game program, 
that becomes 
unbeatable! 
Pg. 55. 

KWIC Index: 

Find information 
fast, with a 
technique 
developed by IBM. 
Pg. 60. 
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Plus: 

14 Programs with complete listings. 

Source Code for 4 Assembly Language programs. 
More than 30 articles and columns. 



'a trademark ot Tandy Corporation 



From PERL5CM 




Low Cost Add-On Storage for Your TRS-80 . 

In the Size You Want. 

When you're ready for add-on disk storage, we're ready for you. 
Ready with six mini-disk storage systems — 102K bytes to 591 K bytes of 

additional on-line storage for your TRS-80*. 



Choose either 40-track TFD-100' 
or 77-track TFD-200™ drives. 



drives 



One-, two- and three-drive systems im- 
mediately available. 

Systems include Percom PATCH PAK 
« 1 '•'. on disk, at no extra charge. PATCH 
PAK #1™ de-glitches and upgrades 
TRSDOS' lor 40- and 77-track operation. 

TFD-100 v drives accommodate "flippy 
disks." Store 205K bytes per mini-disk. 

Low prices. A single-drive TFD-100 v 
costs just S399. Price includes PATCH 
PAK #1" M disk. 

Enclosures are linished in system- 
compatible "Tandy-silver" enamel. 



Whether you need a single. 40- 
track TFD-100 ' v add-on or a three-drive 
add-on with 77-track TFD-200™s, you 
get more data storage tor less money 
from Percom 

Our TFD-100™ drive, for example, 
lets you store 102.4K bytes of data on 
one side of a disk — compared to 80K 
bytes on a TRS-80' mmi-disk drive — 
and 102 4K bytes on the other side, too. 
Something you can't do with a TRS-80" 
drive. That's almost 205K bytes per 
mini-disk. 

And the TFD-200' M drives provide 
197K bytes of on-line storage per drive 



— 197K.394K and 591 Kbytes for one-. 
two and three-drive systems 

PATCH PAK #1™. our upgrade 
program for your TRSDOS*. not only 
extends TRSDOS * to accommodate 40- 
and 77-track drives, it enhances 
TRSDOS ' m other ways as well. PATCH 
PAK #1™ is supplied with each drive 
system at no additional charge 

The reason you get more for less 
from Percom is simple. Peripherals are 
not a sideline at Percom. Selling disk 
systems and other peripherals is our 
main business — the reason you get 
more engineering, more reliability and 
more back up suppon for less money 



In the Product Development Queue ... a printer interface for using your TRS-80' with any 
serial printer, and . . . the Electric Crayon 1 " to map your computer memory onto your color TV 
screen — for games, animated shows, business displays, graphs, etc. Coming PDQ! 



™ TFO '00 TFQ-P30 ■ ' 
•TRS-80 I 




PERCOM DATA COMPANY, INC. 
211 N. KIRBY • GARLAND, TX. • 75042 



To order add-on mini-disk storage for your TRS-80* . 
or request additional literature, call Percom's toll-free 
number: 1-800-527-1592. For detailed Technical infor- 
mation call (214) 272-3421. 

Orders may be paid by check or money order, or 
charged to Visa or Master Charge credit accounts. Texas 
residents must add 5% sales tax. 

Percom 'peripherals for personal computing' 



RS-80 TRS-80 TRS-80 TRS-80 
RS-80 TRS-80 TRS-80 TRS-80 



RS-80 TRS-80 TRS-80 TRS-80 
RS-80 TRS-80 TRS-80 TRS-80 



The 







HARDWARE 


WORD PROCESSING 


UTILITY* LANGUAGE 


Centronics 


Magic Wand by Small Business 


Small Systems 


TI810 


Applications 


TRS 232 


NEC 5530 


Electric Pencil by Michael 


RSM Monitor 


Pertec 


Shrayer 


TRS Formatter 


Shugart 


Special Delivery by Software Etc. 


Racet 


MPI 


Merge Name & Address by SBSG 


FMG 


CDC 




Lifeboat 


Complete TRS-80 Mod 1 and 


FROM THE LIBRARY 


Microsoft 


Mod 11 Hardware 


Learning Level 11 by David Lien 


Apparat 


Percom 


Basic Handbook 






TRS Disk! and other Mysteries by 


BUSINESS 


ENTERTAINMENT 


H. C. Pennington 


Small Business Systems Group 


Microsoft Adventure 


TRS 80 Software Source 


Structured Systems Group 


Automated Simulations 


Software Technical Manual by 


Lifeboat 


Scott Adams 


Houston Micro Computer Tech. 




The Bottom Shelf 


80-US 






Kilobaud 


TRS-80 is a trademark o( Ihe Tandy Corporation 




80 Kilobaud 





To order by phone or for local dealer information call: 713/661-2005 
Texas residents add 6% sales tax • MasterCharge • Visa 

HOUSTON MICRO-COMPUTER TECHNOLOGIES, INC. 

Home and Business Computer Specialists 
5313 BISSONNET • BELLAIRE • TEXAS • 77401 • 713/661-2005 
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ALMOST 
PERFEC. 



The 



MAGiC WAND 



is the most powerful, 



most flexible, most reliable, most usable word processing 
software available for a CP/M-based computer. 



That's not bragging That's just telling it 
like it is. 

The MAGIC WAND is the best word 
processing software ever written for a 
microcomputer It can do more work in 
less time with higher quality than any 
other product you can buy. 

The MAGIC WAND is a rock solid piece 
of software. The command structure is 
simple and logical and complete. We have 
not tossed in features without thought to 
the overall design of the package Nor 
have we included any feature that is not 
thoroughly implemented. The programs 
are crash-proof and completely reliable. 

And the system is supported by what we 
are told is the best user's manual ever pro- 
duced for microcomputer software. It 
contains a step-by-step instructional pro- 
gram designed for the novice. The trainee 
uses sample files from the system disk and 
compares his work to simulated screens 
and printouts in the manual. 

Support doesn't stop when you buy the 
package As a registered user, you receive 
our bi-monthly newsletter which answers 
questions, reports upgrades and teaches 
new applications of the MAGIC WAND. 

It's through a lot of hard work that we 

are able to offer you a product that is 

almost perfect,'' but we aren't about to 

stop working until we can say that the 

MAGIC WAND is perfect. 



Full screen text editing 

The MAGIC WAND has probably the most 
responsive and easy-to-use editor avail- 
able for either a serial or DMA terminal It 
uses only single stroke control keys to 
give command and takes advantage of the 
special function keys on your terminal 
whenever possible. In addition, you can 
set up library files with coded sections that 
you can merge by section name 

Full text formatting commands 

The MAGIC WAND allows you to set the 
left, right, top and bottom margins, page 
length, indentation, paragraph indenta- 
tion, (incuding "hanging" paragraphs), 
text left flush, right flush, justified (two 
ways), literal or centered, variable line and 
pitch settings, variable spacing (including 
half lines), bold face, underlining (solid or 
broken), conditional hyphenation, sub- 
and superscripting You may change any 
of these commands at run-time without 
reformatting the file. 

Merging with external data files 
You may access any external data file, 
with either fixed length or sequential 
records. The MAGIC WAND converts the 
record into variables that you define and 
can use like any other variable Of course, 
you may use the data for automatic form 
letter generation But you can also use it 
for report generation 

To order by phone or :or loca. dealer inform [I 
idei • - ties tax • M \l 



Variables 

You may define up to 128 variables with 
names of up to seven characters. The cur- 
rent value of a variable may be up to 55 
characters, and you may print it at any 
point in the text without affecting the cur- 
rent format Although the MAGIC WAND 
stores the variables as strings, you may 
also treat them as integer numbers or for- 
mat them with commas and a decimal 
point You may increment or decrement 
numeric variables or use them in format- 
ting commands. 

Conditional commands 
You may give any print command based 
on a run-time test of a pre-defined condi- 
tion The conditional test uses a straight- 
forward IF statement, which allows you to 
test any logical condition of a variable. 
You may skip over unneeded portions of 
the file, select specific records to print, 
store more than one document in a single 
file, etc. 

True proportional printing 

The MAGIC WAND supports proportional 
print elements on NEC, Diablo and Qume 
printers. Other formatting commands, 
including justified columns, boldface, 
underline, etc.. are fully functional while 
using proportional logic. 

call: 713/661-2005 
i ;i i 'Visa 



HOUSTON MICROCOMPUTER TECHNOLOGIES, INC 

e and Business Computet Specialists 
5313 BISSONNET • BELLAIRE • TEXAS • 77401 • 713/661 2005 " 13 

saiaW business ap^icaftous, vac. 

3220 Louisiana • Suite 205 • Houston, Texas 77006 • 713-528-5158 



CP'M is a registered trademark of Digital Research Core 
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APPLICATION 

60 KWIC Index. Find it fast! Leslie Sparks. 
117 Blorhythms. On a peak? Ralph Holthausen. 
127 Duty Roster. Put people in place. Dick Straw. 
138 Soundex Codes. Name sound familiar? Robert Hodge. 

BUSINESS 

22 Printers Apprentice. Make a good impression. Rich Barnes. 
28 Investment Analysis. Information in minutes. Leslie Sparks. 

GAME 

55 4K Intelligence. Self modifying program. William Lopez. 

GENERAL 
79 Part-time Consultant. Money on the side. Michael Morin. 

HARDWARE 

72 lowercase & UPPERCASE. The best of both worlds. Don Stoner & Dick Barker. 

88 Babybug Keypad. Easy entry for Hex. Dennis Kitsz. 

96 Home Brew Interlace. Customized control. C.R. Vmce. 

113 Regulate it! Smooth your ripple. William Klungle. 

120 I/O Ports plus. Low cost interface. Brian Harron. 

132 Box It in. A cabinet idea. John Zalnerunas. 

HOME 

42 IRS-80. Record your deductions. William McNeill. 
130 Graph Plotter. Display your bills. Scott King. 

MATH 
84 Equations. Get to the root of them. Allen Joffe. 

REVIEWS 

58 Useful Utilities. Renumber. Remodel & Proload. Charles Leedham. 

77 Quick Printer. A $100 label? Henry Riekers. 
134 One into Two. Old programs in new BASIC. Sherman Wantz. 
136 RS232. The Radio Shack interface. Roger Hicks. 



STYLE 
94 Inside the ROMs. Some useful 



routines. Bruce Stock. 



UTILITY 

46 SPOOL & DeSPOOL. Split personality when printing. H.S. Gentry 

80 Test Your Memory. See if your chips are absent-minded. Milan Chepko. 

105 LPRINT Routines. Hardcopy Video. Craig Werner. 

115 Whazit? Read your tapes. J.B. Penny. 

122 Screen Editor. Non-destructive cursor. William Colsher. 

125 Extra Errors. On Error read this. Charles Moses. 



REGULARS 

8 80 Remarks. Wayne Green. 

8 80 Applications. Dennis Kitsz. 
10 Club 80. Ross Wirth. 
12 Input. Why not you? 
14 80 Accountant. Michael Tannenbaum. 
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META TECHNOLOGIES 



Fellow TRS-80 User: 

I'd like to thank you for your interest in our products and tell you something about our 
company. Active in more than a dozen areas of the computer business, MTC's consulting 
and custom programming operations extend into five states. Although our work includes 
the more "traditional" minicomputers, the TRS-80 is no stranger. Members of our staff 
have worked on the TRS-80 since 1977. After five months of planning and preparation, 
MTC attacked the national market in the premier issue of 80 MICROCOMPUTING 
(January, 1980). 

Our marketing approach is simple. First, sell only top quality products. Some people 
question the quality of our Verbatim diskettes. We attract a lot of attention (and buyers) 
with our low prices, but we don't make our living selling diskettes. If you buy from us 
once, and have a chance to judge the quality and value of our products, we think you'll 
order again. ..and again. For example, MTC sells Apparatus popular NEWD0S+ complete 
with all utilities, at the same price as our competitors. But we include, at no additional 
cost, $39.90 worth of PROGRAMMING TOOLS! The cost to supply the tools is 
nominal. ..the value to you is significant. We make less profit on each sale, but we make 
more sales and more friends. Everyone makes out. ..except our competition. 

Second, sell at below market price. When we offer a product at a lower price that meets 
or beats a competitor's product, we sell more than the competition. As our volumes go up, 
our cost goes down. Everyone makes out... except our competition. 

Third, only offer useful products of lasting value. Every time you use one of our pro- 
ducts, we want you to remember us fondly. Not being a fast-buck, basement operation, 
we want to have you as a customer for a long time. To ensure this, we intend to offer pro- 
ducts that provide continual benefit... like diskettes, NEWDOS+ AIDS-II, etc. Everyone 
makes out... except (you guessed it!). 

Fourth, make it as painless to order as possible. I don't know about you, but I hate 
ordering things through the mail. Give me a good, old TOLL FREE number 
anytime. ..which is exactly what we did. And three out of four of our customers use bank 
cards to charge their purchases. There is a single rate for shipping and handling (we nor- 
mally ship UPS), whether your order is for one or a hundred-and-one items. 
Simple, convenient, no tricks, no hidden costs. 

Finally, render fast and efficient service. Orders are tracked by computer, using our own 
AIOS-II system, and are usually filled within one business day. We pride ourselves on our 
rate of delivery. 

In the coming months, we intend to use some of our ad space to feature letters from 
other members of our management staff (e.g. Customer Service, Product Engineering, 
etc.). We feel the better you get to know us. the more comfortable you'll feel dealing with 
MTC. .and the less you'll deal with you-know-who. 

MTC AIDS-II represents the essence of MTC's product development philosophy. Below 
are "testimonials" from four owners of the package. These are absolutely authentic 
statements and are typical of the comments we receive. 

"The AIDS-II package is the most powerful data manager we've ever seen. The most 

complete and easiest to use!" - .. .. , « J _... ._._._, . _„__ 

^ David Johnson, President, John-Trontcs Security Co. 

(Uses AIDS-II for client and prospect mailing lists, A/R, gun registration and alarm 
systems logs) 

"It will do everything it's advertised to do plus whatever else your 
imagination allows. It is the best software value on the market today. AIDS-II is the most 
significant software development I've seen, and wiN have as large an impact on the 
marketplace as the Radio Shack TRS-80 did on the microcomputing market." 

Vern Hall, V. Hall Insurance Agency (Nationwide Insurance) 
(Uses AIDS-II for client and prospect mailing lists ft follow-up systems, A/P, A/R)) 

"...the best system for the non-programmer I've ever used. It has an unlimited number 
of uses. I might have to buy another system just to have it on-line at all times... " 

Robert I. Gross, CPA 

(Uses AIDS-II for mailing labels, client reference system, for providing an audit trail to 
disburse funds to general ledger) 

"...the most flexible and powerful system I've seen, especially with modules such as 
MAPS. The weakest part of the AIDS system is the Radio Shack Computer!" 

L.G. Payne. Media Specialist. Strongsville High School 

(Uses AIDS-II for mailing lists, tracking of audio-visual materials, experimenting with 
student attendance records) 

We at MTC look forward to providing you with the quality products and service you 
deserve and should expect. If we offered you anything less, we wouldn't be Meta 
Technologies Corporation... we'd be you-know-who. 

Sincerely, 



^gtzttZUk 



MTC AIDS-II 

Affng infor mation? Doc tor ; It up w tth AIDS-II. This 
Automated Information Directory System it user- 
defined, features user-specified fields and 
print/dteptsy formats, conditional record selection, 
updating of fields within records, sorting by any 
combinayuii of fields, and much more! Unique 
windowing capability allows directories of 
unfrnitedsbs. window size is typicaly 200 or more 
records in 32K. Can be used for maing lists, client 



ref e ren ce re po rting , ap p u ei b iie ut "c w eno a r i ", in- 
ventory records and other information systems. 
Easy to use. Defining a system takes about a 
minute. Formatting a report or defining' custom 
label, less than 30 seconds. Sorting 200 records 
takes les s t han ^sec onds. Add "subsystems" for 
additional capoblpbes. 

MTC AIDS-II $49.95 

For Model II $79.95 

CALCULATION SUBSYSTEM (CALCS) 

Use for report gener ati on involving basic manipula- 
tkm of numeric date, such as quantity ft cost com- 
putations, balances carried forward and columnar 
totals. Expands capebSbes with respect to nven- 
tory, accounting and other numeric-based informa- 
tion systems- 

MTCCALCS $24.95 

For Model II $39.95 

MAILING/INFORMATION LIST 
SUBSYSTEM (MAILS) 

Use for report ft label g ener a tion involving format- 
ting of primarily non-numeric data, such as 
custom, ' N-up" and "N-copy" label forms, index - 
type report formatting, and sub-fielding 
capaoiibes for selection ft print. Expands AIDS-II 
with respect to dent/product reference systems. 
mailing lists and other non-numeric inform a tio n 
systems. 

MTC MAILS $24.95 

For Model II $39.95 

RECORD/FILE ORGANIZATION 
EXECUTIVE (REFORGE) 
Use for eipandwg. contracting or reformatting 
AIDS-II fees. Convert random ft sequential fees to 
AIDS-II format Use for converting maflnc fsts to 
AIDS-II Includes MERGE ft PURG E capsMttssfor 
combming smeser fees eito larger ones and remov 
ing rt ia^fttato records. 
MTC REFORGE $24.95 

' Model II $39.95 



MTC TECH B.S. 



< 



Our exclusive Technical Bufcetin Service revests 
the Inside story on the TRS80* I ft II. Sent by first 
class mai, buse ti n s are i ssued a s the newsb reet u , 
not fust once a month. Expensive, but worth It! No 
advertising or flyers, fust pure Technical B. S.! 
Cancel any time • unused balance refunded. Free 
year-end subject index with 12-month subscrip- 
tion. Subjects have included "PEEKftPOKE func- 
tions for Model II". 'IMacnina Language Sort for 
String Arrays". 'Tandy Marketing flans", and 
"Level II Memory Locations". Subs cri pt i ons may 
be back-dated to obtain previous Buftetins. 
1-Year Subscription 

(Includes free index) $36.00 

Monthly Subscription $3.00/mo. 



TRS-80 ind Rtdn Stock nt regtstcretf 
tudtmwks of Iintfy Corp. 



Robert A. Fiorelli 
President 



PEEK&POKE $14.95 

Frustrated because PEEK and POKE have been 
removed from Model II BASIC?. Satisfy your 
curiosity with PEEKftPOKE from MTC. Included 
are 8-bit and 16-bit (LSB, MSB) seN-retocating 
machine language routines, instructions, and demo 
program. 
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MAKES EVERY BYTE COUNT 

IN YOUR TRS-80 MODEL I OR MODEL II DISK SYSTEM 



PROGRAMMING **\«*iFREE 

taai c Any 5, $79.80 
lUULo For Model II $119.80 



• NEW* *NEW* 

TDAM $19.95 

For Model II $29.95 

Having trouble with RANDOM FILES? With MTC's 
Table-Driven Access Method (TDAM) you'll never 
fret over FIELDing again. No knowledge of 
random access files a required. Insert the TDAM 
"interpreter" into any BASIC program and type in 
a few DATA statements describing the information 
in your files. TDAM does the rest! Reads and 
writes fields and records of any type (even com- 
presses a DATE field into 3 bytes!). Features 
automatic file buffer allocation/deallocation, 
memory buffering, sub-record blocking/de- 
blocking, and handles up to 255 fields per record. 
Super fast and super simple! Complete with 
TDAM interpreter, instructions and demo pro- 
gram. 



SIFTER $19.95 

For Model II $29.95 

Twelve in-memory high-speed sorts for use in any 
BASIC program: stable, non-stable, with/without 
tags, for numeric or string data. Random File 
Sort included. Some sorts written in machine 
code. Includes sort subroutines, demo programs 
and instructions. Relocate as needed with 
REBUILD. 



SHRINK $19.95 

For Model II $29.95 

Makes Every Byte Count!. Make programs 
smaller and faster! Combines lines ft removes un- 
necessary code including remarks, without alter- 
ing program operation. Typically reduces pro- 
gram size 25% to 40%. 



DIVERGE $19.95 

For Model II $29.95 

Compares two BASIC program files, showing the 
differences betw een them. Identifies ft lists lines 
which have been inserted, deleted. ft replaced. 
Use for version control. 



SUPERSEDE $19.95 

For Model II $29.95 

A "must have" for the professional programmer 
or the serious amateur. Probably one of the 
greatest time-savers available. Write programs in 
sh or tha nd - change variable names - generate 

a ram documentation - use with REBUILD and 
SLE to build new programs from old ones. 



REBUILD $19.95 

For Model II $29.95 

Reorganize programs for adding program code, 
faster execution, readability. Much more than sim- 
ple renumbering. Rearrange groups of statements 
within a program - automatically updates 
references to line numbers. Use with 
SUPERSEDE and MINGLE for maximum effect. 



MINGLE $19.95 

For Model II $29.95 

Merge two files (Program or Data) into a single 
file. Data files may be merged in ascending or 
descending sequence with the ordering based on 
a user-specified comparison field. A very handy 
utility for consolidating data files. 



» 



Single sided. Single density. Soft-sectored 



DISKETTES 



Verbatim b 1 /*- inch 



$23 



MARCH 
SPECIAL* 



95 

Box of 10 



Hard-sectored (10-hote). Box of 10 $26.95 

8-inch FLOPPIES 

Single-density. Box of 10 $29.95 

Double-density. Box of 10 $39.95 

PLASTIC LIBRARY CASES 

5 '/4-inch or 8-inch diskette case $3.25 

5V4-inch or 8-inch diskette case 

(when purchased with each Box of 10) . . . $3.00 

FACTORY FRESH. ABSOLUTELY FIRST QUALITY 
Minimum order 1 box, NO order limit! 
'Price in effect March 1 thru March 31. 1980 



Complete for Model I with all utilities 



NEWDOS+II 

$99 



OR by Apparat 

'^ andMTC 



40 TRACK VERSION $109.95 

includes REF. RENUM. SUPERZAP. 
EDITOR/ASSEM.. DISASSEM.. DIRCHECK, and 
more! This is the original NEWDOS with all of Ap 
parat's utility programs, plus any 2 MTC PROGRAM- 
MING TOOLS (for Model I), of your choice. 



mTc-SHIRTS 



. 



HIGH-QUALITY, POLY-COTTON 
BLEND T-SHIRTS. White with Navy Blue 
neck and sleeve "ringers". MTC logo on sleeve. 
Top quality transfers of your choice on front. 

Specify size (S.M.L.XL) and Transfer: 

• META TECHNOLOGIES MAKES EVERY BYTE 
COUNT! 

• DONT TOUCH MY BITS! 

• RAM it! 

• MICRO LOVERS TAKE SMALLER BYTES! 

mTc-SHIRTS $5.95 



FILESORT $29.95 

For Model II $49.95 

Sort ASCII files by any combination of user- 
specified fields: ascending or descending, 
numeric or non-numeric keys. Optionally retains 
original file. 



MAILSORT(Model I) $19.95 

MAILSORT replaces existing sort in Radio Shack 
Disk Mailing List* system. Sort by any combma 



tion of fields, such as NAME, within CITY, within 
STATE. Hi-speed in-memory routine sorts 300 
records in approximately 60 seconds. Minimum 
32K recommended. 



Transfer PROGRAMS and DATA 
from MODEL I to MODEL II 

TRAN-SEND 

$49 95 by MTC 

Requires MODEL II and MODEL I with disk ft 
RS-232. Simple to use. not a kit - nothing else to 
buy. Complete with custom cable. 5V»" ft 8" flop- 
pies, instructions. May be used over phone lines. 

Custom Cable only $19.95 

Suitable for use with Radio Shack* transfer program (ACT 0131) 



All products 

guaranteed for 

replacement only. 

Prices, Specifications & 

Offerings subject to 
change without notice. 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



QUANTITY 

DISCOUNT 

INQUIRIES 

INVITED 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



Add $2.50 for 
shipping & 
handling 
$2.00 EXTRA 
for COD. 
Ohio residents 
add 5'/z% sales tax. 




TO ORDER CALL TOLL FREE 

1-800-321-3552 

IN OHIO call (216)289-7500 (COLLECT) 

IVlETfl TEChMQLQGJES CORPORAi™ 

26111 Brush Avenue, Euclid, Ohio 44132 




iS Reader Service— see page 147 
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80 REMARKS 



by Wayne Green 



Sometimes I tend to assume too much and 
not communicate as well as I might. In the 
case of electronic mail I assumed that everyone 
else was as fed up with the increasing slowness 
and cost of the U.S. mail and that the value of 
sending mail electronically was self-evident. 
My error. 

My concept of EM runs something like this. 
The time is well on its way when a microcom- 
puter/terminal will be on most business desks 
and in most homes. I 'II be able to type in a mes- 
sage, using the telephone number as an address. 
This message will then be sent to the addressee 
via telephone lines almost immediately. 

My system will dial the number and if it's 
busy, it will continue to check the number every 
minute or so. When the line is free, the system 
will send a tone that prevents the phone from 
ringing on the other end and actuates the EM 
unit. 

After the system receives a handshake signal, 
tell the other unit how many bits of information 
are forthcoming, send the message, await an 
okay, and hang both up. Time, at 1200 baud, 
perhaps one minute. 

The EM unit on the other end will have a 
light indicating an awaiting message. This can 
be read when convenient and a response made 
... all within a minute or two, if needed. 

Will Save Phone Calls 

Such a system will not only speed up mail 
from several days or a week to a minute or two, 
but will also cut down on a lot of phone calls. I 
really hate to make phone calls. Often the other 
chap is on another line, or busy in a meeting, 
out to a late lunch, getting a haircut, or, per- 
haps, molesting his secretary. 

The dollar loss in voice phone calls will be 
made up by an enormous increase in message 
billing, so the phone company will make out 
fine. 

The U.S. Post Office will have to find 
something better to do, bless them. 

While we are all waiting around for the 
government and Ma Bell to organize some sort 
of electronic mail system, it is my fiendish plan 
to get it going via microcomputers as quickly as 
possible. We'll have over a million micro sys- 
tems out there by the end of 1980, and this will 
certainly be enough to get a service started. 

Businessmen will be able to handle much of 
their own correspondence ... at home, if they 
wish, just by re-routing the messages or having 
them repeated from the office. The present cost 
of correspondence can be cut substantially 
where no typewritten copy is required, no 
secretary, no paper, no filing. 

If a permanent copy is wanted, it can be filed 
on tape for later retrieval, put on microfiche, or 



even printed out and filed, if absolutely neces- 
sary. One of those relatively low cost 10,000 
megabyte disks could replace file cabinets. 

I know it would be heavenly sent, if I had 
such a system. If some irate subscriber had 
missed an issue, instead of calling me and rais- 
ing Cain, he could send a message. I would pass 
it along to the subscription department, a mile 
from my office. They would relay it to the full- 
fillment house in New York. The answer would 
come back directly to the subscriber, with an 
acknowledgement to our department and to 
me. All that would take just a few minutes in- 
stead of about three weeks. 

I have asked several firms to design the hard- 



ware for just such an EM unit, and one has 
obliged. The interface will be strictly RS-232 
and thus useful with almost anything, so we 
need software for all the popular micros, if any 
of you programmers are interested. 

The program will have to word process, al- 
lowing the microcomputer to work as a correc- 
ting typewriter and to get it to tone or dial the 
needed number after a prompt. The system 
should be as transparent to the user as possible. 

If you think you have the background for 
this, let me know. We are expecting prototypes 
of the interface unit soon and project a massive 
release of the system this coming summer. ■ 



tf? APPLICATIONS 

^^ ^a^ hv Dennis KitS7 



by Dennis Kitsz 



A single screw on the case bottom is covered 
with a drop of tinted lacquer: it warns 
"Keep Out! " But you know a little electronics, 
and you've fixed your brother's TV ... so in- 
to the TRS-80 you go, remembering the five 
cardinal rules of hobby electronics: 

• Never get a Technical Reference Handbook. 
It's five more dollars they want after you've 
already put up hundreds. 

• Pull everything apart to see what it looks 
like. Remove all socketed ICs and put them 
in a plastic bag. 

• Test everything. There's nothing like a good 
torture test, so poke around with meter and 
scope probes and screwdrivers, and smack 
things with your knuckles. Be sure to do it all 
with the power on. 

• Try experiments to see what happens. If the 
screen goes wacky, that's a sign you're doing 
something. Keep trying. Don't forget to twirl 
all the trimmer controls, too. 

• If a part looks about the same, it probably 
fits; put it in. Corollary: Never read Thomas 
Hardy, Herman Melville, or specification 
sheets. They're all boring and playing 
"Space Potatoes" is more fun. 

Three weeks later, you're still looking, for a 
Radio Shack willing to take on the repair work. 
Two months after that, you've got it back, plus 
a bill for over a hundred dollars. 

Poking, Prodding, Thumping 

Of course, I am suggesting that the TRS-80 is 
a pretty sophisticated electronic toy and not 



very responsive to poking, prodding or thump- 
ing. It can succumb with devilish quickness and 
quietness. 

If you've decided that your TRS-80 needs a 
change or addition, and you intend to do it, 
your chance of success can be high. But do buy 
and read the Technical Reference Handbook. 
You may not understand it all, but even a 
general feeling of how, why and when the 
machine performs its activities is worth the time 
spent. 

If you're installing someone else's hardware 
addition or modification, read the documenta- 
tion carefully. Understand what the change 
does and how it works. 

Always open the case with great care. The 
boards are made up of hundreds of delicate cir- 
cuit traces that can be broken with a scratch, 
and there are several rather unpleasant inter- 
connection cables that can unexpectedly snap 
loose. Leave sensitive ICs and cables in place. 

I took my TRS-80 apart the very day I 
bought it . . . and broke the Level II intercon- 
nect cable. Two weeks, ten dollars. 

Leave the power off until testing time, and 
then reseal the case. It's no fun to discover that 
the IC you piggybacked or the DIP switch you 
put in place of a jumper works just beautifully, 
but putting on the cover crushes it into the cir- 
cuit board, sending the computer into a micro- 
frenzy. 

Never just "try it." There may be more than 

one way of achieving a given change, but avoid 

Continued to page 10 
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BASIC SOFTWARE LIBRARY 

NOW • 10 • Volumes and Growing 

IS SPONSORING A 

$10000.00 Give Away 

And unlike others we are giving a large portion in CASH that you Don't have to spend with us. You are 
eligible NOW! You may already be entered. More details in future advertisements. 

We have over 100,000 in circulation since 1975 and we are still around and That's more than Anyone else can say. We 
used to sell hundreds of programs individually, the programs in Volume X were sold for several years at over $10,000, 
in Volume III for over $6,000 but a few years ago we decided to promote software to the mass public and it was an 
instant success. We are still several years ahead of our time in our marketing concepts as well as our products and we 
are going to be making another major change in the market. We are going to offer our programs in cassette form. NOT 
just one of two programs like everybody else. But a book full of programs for just $9.95. 

For Homeowners, Businessmen, Engineers, Hobbyists, Doctors, Lawyers, Men and Women 



Vol I $24.95 


Vol II $24 


Buainess & 


Animals Four 


Binomial 


Parson ai 


Astronaut 


Chi Sq 


Bookkeeping 


Bagel 


Coeff 


Programs 


Bio Cycle 


Confidence 1 




Cannons 


Confidence 2 


Bond 


Checkers 


Correlations 


Building 


Craps 


Curve 


Compound 


Dogfight 
Golf 


Dlffarancas 


Cyclic 


Dual Plot 


Decision 1 


Judy 


Exp-Distn 


Decision 2 


Una Up 


Least Squares 


Depreciation 


Pony 
Roulatta 


Paired 


Efficient 


Plot 


Flow 


Sky Oivar 


Plotpts 


Installmsnt 


Tank 


Polynomial Fit 


Interest 


Taach Ma 


Regression 


Investmsnts 




Stall 


Mortgage 


A. Newman 


Stat 2 


Optimise 


JFK. 


T-Dlatribution 


Order 


Linus 


Unpaired 


Part Tree 


Ms Santa 


Varianca 1 


Rata 


Nixon 


Variance 2 


Return 1 


Noel Noal 


XY. 


Return 2 


Nuda 




Schedule 1 


Peace 
Policeman 


APPENDIX A 


Games* 
Pictures 


Santa's Sleigh 

Snoopy 

Virgin 





95 

Beam 

Conv 

Filter 

Fit 

Integration 1 

Integration 2 

Inteneity 

Lola 

Macro 

Mai Mm 

Navaid 

Optical 

Planat 

PSD 

Randi 

Rand 2 

Solva 

Sphere Trian 

Stars 

Track 

Triangle 

Variable 

Vector 



Vol. Ill 


Vol. IV 


$39.95 


$9.95 


Billing 


Bingo 


Inventory 


Bonds 


Payroll 


Bun 


Risk 


Entarpnsa 


Schedule 2 


Football 


Shipping 


Funds 1 


Stocks 


Funds 2 


Switch 


Go-Moku 




Jack 


Vol. VI 


Llfa 


$49.95 


Loans 


Mini-Ledger 


Mazaa 


sr 


Popul 


Inventory 


Profits 


Peprac. 




Ledger 


Rates 
Retire 




Savings 


Vol. VII 


SBA 




Tic-Tac-Toe 



Chess 
Medb.1 
Wdproc 
Utility 



Add $1.50 per volume handling, all domeatic shipments sent U PS except APO 
and P.O. Bos which go parcel post Foreign orders add $6. 00/ volume for air 
shipment and make payable in U S. dollars only 

AVAILABLE AT MOST COMPUTER STORES 

Master Charge and Bank Americard accepted. 

Our Software is copyrighted and may not be reproduced or sold. 

Unlike others we have NOT raised our prices in five years 



Vol. v 

$9.95 

Andy Cap 

Baseball 

Compare 

ConfidiO 

Descrip 

Differ 

Engine 

Fourier 

Horsa 

Intagars 

Logic 

Playboy 

Primes 

Probsl 

Quadrac 

Red Baron 

Regression 2 

Road Runner 

Roulatta 

Santa 

Stat 10 

Stat 11 

Steel 

Top 

Vary 

Xmas 

APPENDIX B 



Vol. VIII 

S19.95 

1040-Tax 

Balance 

Checkbook 

Inatol 78 

Deprec 2 

APPENDIX C 



Vol. IX 

$19.95* 

Auto 

Cypher 

Hurrtrac 

10 

Lorana 

Map 

Navigate 

Omega 

Patterns 

Radar 

RDF 



Favorites 
"10% Discount — Offer good 



Vol. X 
$69.96* 

Intro. 
A/R 
A/P 
Mer Inv 
Check 
Assets 
Payroll 
BslSh 
P/L 

Year End 
DataBase 
Tax Up 
Baaic St. 
til April 30, 1980 



Volume III— Part 1— Billing Inv. Pyrl. 
Volume VII — Part 1— Chess 
—available on TRS-80 level II 
compatible cassette $9.95 

Add $1.00 per tape Post /Handling 

Volume VI — Disk programs are 
compatible with TRS-80 disk basic 

The disk programs In Volumes VI. VII and X are 
written in (CP/M) M Baaic and Diak Extended 
Microsoft Basic. Other programs written in 8K 
Baaic. 



• 157 



OVER 116, 



III 




KEMCO, LTD. 

P.O. Drawer 2208G Petersburg, VA 23803 

24 hour Hot Line (800) 528-6050 
ext. 1 1 84. In Arizona (800) 352-0452 



USE TODAY 




^APPLICATIONS 

Continued from page 8 



experimenting with a disemboweled TRS-80 
before you. If what you have installed doesn't 
work, don't jumper connections or rotate con- 
trols. You did something wrong, so admit it, 
and recheck or rethink everything. Test care- 
fully, using good equipment and proper test 
clips. 

Read Those Spec Sheets 

Last of all, when doing your own design or 
substituting parts, read specification sheets. 
This warning (as well as this entire column, I 
must admit) derives from my own experience. 
The TRS-80's designers were kind enough to 
leave some blank area that could contain an ex- 
tension of the Level II ROM. Delighted at the 
prospect, I set about designing a small ROM 
board to include utility programs of interest. 

I decoded the address of the area, and hand- 
wired a small board that contained various ICs 
and $42 worth of 1702A EPROMs. These han- 
dy little circuits were relatively inexpensive, and 
they could be individually erased for future 
program changes. 

It didn't work. 1 had considered everything 
but speed. All the mysterious talk about access 
time and X number of nanoseconds came into 
focus. 

A quick look at the TRS-80 clock revealed a 
speed of 1.66 MHz, which meant one cycle 
every— quick calculation— 600 nanoseconds. 
Turning to the spec sheets, I found the 1702A 
had an access time of — disappointment edging 
toward anger — 900 nanoseconds. 

Even veteran experimenters need to be 
reminded that digital circuits have a low 
tolerance for abuse or marginal design. On the 
other hand, well-designed hardware additions 
or modifications are very much a part of the 
community of TRS-80 hobbyists, and that's 
one way of making these microcomputers re- 
spond to human needs. 

Additional Notes 

Additional notes on Faster! Faster! (Feb. 80 
Microcomputing) for those of you with disk 
drives. Howard Batton of Auburn, WA, brave- 
ly went ahead with the modification. He says: 

"I went the whole route the first time ... as 
you suggested, the disk won't power up in the 
high speed mode, so I had to reverse the Q and 
Q' leads. As it stands now, after only a couple 
days to try the system. I can use the high speed 
most of the time, including disk reads and 
writes from BASIC. The DOS commands, 
however, don't want to work properly, at least 
not all of the time. Some of them, e.g. format, 
copy boot, don't work at all in high speed 
mode. So far, I haven't lost any programs or 
wiped out any diskettes, so I count the high 
speed mod a success." 

So you disk owners w ill want to power-up at 
the lower speed. As noted, reverse the leads 
from Z7 to ZSPEED. Now OUT 254,0 gives 
you low speed, OUT 254,1 is high speed. Very 
many thanks to Howard. ■ 



CWBgO 

hw Rocc \A/irth ^^ ^^ 



by Ross Wirth 



I am happy to hear from you to learn your 
ideas and thoughts on the content of this 
column. Please send your comments to me at 
15906 E. 96 St. N.. Owasso, OK 74055. An 
SASE would be appreciated for personal re- 
plies. 

Newsletter Review: Chicatrug News 

Chicatrug is a TRS-80 User Group that 
meets every month on the third Wednesday 
from 6:00 to 9:00 PM at 203 N. Wabash, 
Room 2102 in downtown Chicago. Their 
monthly newsletter for January was ten pages 
long. The breakdown of the newsletter was 
1': pages of short notes and new product 
reviews, 1 page of meeting announcements, 4 
pages of ads, and 3 ' ': pages of articles written 
by club members. These articles include a 
review of programs that have sound output, a 
machine language program for drawing a pin- 
wheel and a line between two (x,y) points and 
a good explanation of how to use V ARPTR in 
your programming. 

Chicatrug News is published monthly by 
Emmanuel B. Garcia, Jr. & Associates, 203 
N. Wabash, Room 2102, Chicago, IL 60601. 
Annual subscription rate is $12. 

Programming Hints 

One topic that everyone seems interested in 
is short programming tricks that they can in- 
corporate in their programs. For those who 
are interested in such goodies I will present 
oneor two each month. I'll try to give credit to 
the people who bring them to my attention. 
The original creator will also be credited, if 
known. 

Loss of information on the screen when 
entering data: While playing a game you are 
prompted to enter some information. You 
type the information in and hit ENTER and 
before your eyes a line of the screen is blanked 
out as the cursor moves to the next line. The 
problem: you cannot control the cursor mov- 
ing to the next line. 

Solution: Use INKEYS for entering infor- 
mation to your program. This will prevent the 
loss of information on the screen and w ill keep 
the cursor at its present location. 
Try this example. 

KIO ci s 

1 10 FOR I F()47:SH I56.D.NEXT I 

120 PRIM @ 3J9,"NUMBER?"; 

130 XS INKEYS:IF \S "THl N 130 

140X- VAUXJ) 

I50X2-X* X 

liso PRINT (a 350.V sot -\KI 1) is ".\: 

170 GOTO 120 

Notice that VAL was used to change the 
character input to a numeric value. If a non- 
numeric character is entered VAL w ill return a 



zero (0). Knowing this you can check for non- 
numeric input in the data validation section of 
your program. 

Note: this works for single digit input. A 
later hint w ill deal with multiple digit input us- 
ing INKEYS. 

Arrows as input to a program: (brought to 
my attention by Greg Perry, Tulsa, OK). 
Every key on the keyboard is available for 
entering data to the computer, including the 
arrow keys. Instead of using U, D, L, R for 
up, down, left and right, the arrows can be 
used directly. Useful applications include 
games and word processing. Try the following 
example to see how this works. 



ioo CIS 

1 10 IF PFFK(I4400) 8 THEN PRINT "UP" 

120 IF PFFKl 14400) I6THEN PRINT "DOWN" 

I 30 II PEEKl 14400) 32 THEN PRINT "LEFT" 

140 IF PFFKl 14400) 64 THEN PRINT "RIGHT" 
1 50 GOTO 110 



Try this use of arrows in the next program 
that needs directions as input. 

Short Notes 

Recordings of programs on tape will last 
longer if you press the STOP button after 
loading the program into your computer. 
Leaving the PLAY button depressed keeps 
constant pressure on the tape, the last part of 
which contains the last part of your program. 
This continued and repeated tension on the 
tape can eventually cause drop out of data. 
(And who wants that to happen!) 



Last month I mentioned the formation of 
groups of individuals for the purpose of in- 
formation exchange and education. My role 
in this activity is to match individuals with 
similar interests. Some additional areas of in- 
terest are health care, education, war-gaming, 
word processing and scientific applications. 

Each of these groups is in need of a coor- 
dinator. If you wish to join one of these 
groups or w ish to serve as a coordinator please 
drop me a note and I'll make sure you get to- 
gether. 



Computer hardware costs are still dropping 
and general software is becoming more 
powerful and available. In the past software 
was given away to sell computer hardware. In 
the future w ill the hardware be given free with 
the purchase of a software package? 

As hardware becomes, cheaper, it is financial- 
ly more feasible to build bigger, faster and more 
complex systems then ever before. Send me 
your thoughts on the future of hardware. ■ 
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MAZE-80 



S 9.96 



ANY SORT 3 



$29.96 




PENTOMINOES 



$•.96 




ARITHMETIC 



S 6.95 




COMPUTER 
MINDREADER 



$ 6.95 




15 NUMBERS 



$ 6.95 




TRS-80TIEUNE 

TRS-80 TIELINE is an extended smart tarminal program. 
Functions supported with this package ara tha ability to 
sand and recaiva BASIC data and programs. A fully sup- 
portad sat of timashara ASCII control keys ara software 
salactabia. 'ESC' and a 'BREAK' key function do not re- 
quire any hardware modifications. Smart functions maka it 
possible to jump from moda to moda with communication 
prior to program transmission or recaption. Half and full 
duplex modes as wall as line feed transmission or suppres- 
sion, baud rate, parity, word length, stop bits are software 
selectable and can be changed while running. A printer can 
be connected for hard copy of communications as well as 
LLIST at baud rates that include 134.5 baud for certain 
serial printers. A special host or source mode allows other 
computers to use the TRS-80 TIELINE as a timashara style 
computer. Programs can be run as well as disk files loaded, 
saved or transmitted by control from the distent computer. 
Character echo-back is supported. Host override of forbid- 
den commands is possible. An additional feature allows 
testing of the TRS-80/RS232 hardware. Tha program is 
available for DOS 2.0 - 2.2 machines with 32K memory, 
RS232 board and modem. Additionally, the package in- 
cludes a free copy of THE TRS-80 DATA COMMUNICA- 
TION HANDBOOK' by Stephen Gibson. The handbook is 
a compilation of terms and in-depth explenetions of data 
communication from the standpoint of tha user, the hard- 
ware, and tha phone company. Various phone line services 
ere detailed. Baud rates, bits and codes are explained at 
hobbyist level. How a Bell 103 modem works and how to 
connect it is covered with emphasis on originate and answer 
frequencies, duplex, half-duplex end RS232 conventions. 
The EIA standards are given with ASCII control character 
sat information. 



TIELINE 

TRS-80 DATACOMM HANDBOOK 



$24.95 
$ 5.95 



All orders Include 3% postage and handling with a minimum of 
$1 .00. California rasidentt include 6% Sales Tax. 

VISA MASTERCHARGE 



TRS-80 IS A REGISTERED TRADEMARK OF 
THE TANDY CORP. 



PROGRAMMA 
INTERNATIONAL, Inc. 

3400 Wilshire Blvd. 
Los Angeles, CA 90010 

(213)384-0579 
384-1116 



384-1117 
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MINEFIELD 



S 6.96 











!5^ 













NIM 



S 6.96 




ROULETTE 



9 6.96 




PACHINKO 



$ 6.95 







CONCENTRATION 



S 6 95 




ft 

t 



1 

9 

D 



to 

1 



3 

v 

T 


a 
c 
o 
tt 

9 



QUIZMACHINE 



$ 6.96 



Dealer Inquiries Invited 



OBM/5 



$49.95 



^ Reader Service— see page 147 
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SO INPUT 



Spinner Rebuts 



The first issue of 80 Microcomputing came 
Monday, and it was hard to wait until the din- 
ner dishes were done and 1 was free to retreat to 
my favorite chair to spend several hours read- 
ing about my favorite subject: the TRS-80. In 
general I was very pleased with the initial issue 
of 80 Microcomputing. I was particularly im- 
pressed w ith the broad range of TRS-80 opera- 
tion/utilization issues the magazine articles 
covered. 

As a new disk spinner I was naturally at- 
tracted to the article by William O'Brien "A 
Disk Primer." While I thought it was well writ- 
ten, I did have two objections/observations 
about points mentioned in that article. 

My first objection is to the comment (page 
130, column 2, the second paragraph) which 
states "... Level II tapes are not compatible 
with the disk operating system." That is just 
not true. 

Mr. O'Brien has probably confused the Lev- 
el l-Level II tape incompatibility problem with 
the problem of real time clock interference 
under Disk BASIC. A real time clock is nice, 
but it does wreak havoc with tape input and 
output operations. In fact, as long as the 
clock is operating normally you get garbage 
about 80 percent of the time during tape opera- 
tions. The solution is to turn the clock off be- 
fore tape operations. That is accomplished by 
issuing the command CMD"T" just before 
tape operations. After operations are complete, 
the command CMD"R" will restart the clock's 
operation. The process only seems complex the 
first couple of times you do it, after that it be- 
comes second nature. 

(Some disk users have had interference prob- 
lems from the clock with their disk input-out- 
put operations, but I understand that Percom 
has a simple, cheap plug-in board that solves 
that particular problem.) 

The key point is that those Level II tapes will 
still work after you add a disk to your system. 
The second observation I have is regarding a 
comment Mr. O'Brien makes further on: 
"Since you TRS-80 users must have the 
Radio Shack DOS disk present in drive 0, 
there is not much room left for storage (for 
instance, RS's 2.2 DOS leaves only 18 
kilobytes of storage of a possible 89.6 
kilobytes). That means two disk drives." 
It does not mean two disk drives. It means 
you have to be a bit creative. The solution lies in 
constructing a minimal operating system. A 
minimal operating system is one that contains 
only those DOS files you absolutely need for 
normal operations. The other files are killed, 



freeing the space they occupied for other use. 
Using TRSDOS 2.3 as my example, it works 
something like this. As your DOS disk comes 
from Fort Worth it has 38 free files and 21 
grans of disk space you can use. This translates 
into about 26 kilobytes of space. If we kill the 
following files, it is possible to more than dou- 
ble the free space: 



FORMAT CMD. FORMAT (THE "FORMAT" IS 
THE PASSWORD) 

BASIC R CM!) BASIC (THE "BASIC" IS 

THE PASSWORD) 

BACKUP CMD. BACKUP (THE ".BACKUP" IS 
THE PASSWORD) 

TEST2 BAS 

TLSTI CMD 

TAPEDISK/CMD 

GETDISK BAS 

C.ETTAPEBAS 

DISKDUMP BAS 

After you have killed these files, your drive 
diskette will have 47 free files and 52 free grans 
of space (roughly 66 kilobytes of free space). 
You can do a great deal with 66 kilobytes of 
mass storage! The most profitable files to kill — 
in terms of the space they free are: 

TEST2BAS (FREES 15 KILOBYTES) 

BASICR/CMD (FREES 6 KILOBYTES) 
FORMAT/CMD (FREES 3.8 KILOBYTES) 
BA< KUP/CMD (FREES 3.8 KILOBYTES) 

Interestingly enough, these are also the files 
that I find 1 don't need to have on every diskette 
I own. Bui whatever mix of DOS files you have 
on your drive diskette, the key point is that 
there is a great deal more mass storage capacity 
on that diskette than a cursory glance would in- 
dicate. I'm no great shakes as a programmer, 
but I've done a lot of work with the storage 
space on my drive diskette. 

I'm looking forward to the next issue of 80 
Microcomputing. 

James M. Kenderdine 

13420 East Cedar Lane Road 

Norman, OK 



System Crashes 



1 just received the first copy of 80 Microcom- 
puting in the mail this week and 1 like what I 
see! I think 1 held my breath long enough 
waiting for someone to come out with a maga- 
zine devoted to just the TRS-80. 

You mentioned in the magazine about ran- 
dom crashes when the interface is used. I have a 
32K system: one disk system is hooked up and 
another has been ordered. I also have a PR-40 



printer. As for system crashes, yes I have had 
some with the interface turned on. I sent the in- 
terface in to the Radio Shack service center and 
they sent it back saying "no problem!" 

Well, it crashed again, this time with the disk 
running! Lucky all the files were CLOSED or it 
would have been a mess! I had to push the reset 
and boot DOS back into the machine. 

As for software I write much of my own and 
copy some out of books and debug them so 
they will work in my machine. Some programs 
"written for the TRS-80" have to be debugged 
in order to work in my machine! 

One program in particular left a space in the 
file spec and you don't leave blank spaces in 
your filespecs because the information after the 
blank space is ignored. I had to change from 
M$ + Ml to MS + AS, then to get the numeric 
value of AS I used VAL(AS) to get the number 
back for my IF branches. This was the only way 
I could get rid of that blank space! 

1 am planning to add another printer to my 
system, a full size printer but I am going to keep 
the PR-40 on line for use when a 40 column 
printer is more practical. 1 am going to have it 
switched from my control console. 

James Weisjahn 

Box 396 

Mcdford, MN 



Nobody's Perfect 



I enjoyed the first issue of your new publica- 
tion and urge you to keep up the good work. As 
a TRS-80 Level II owner the articles were very 
useful, however, I would like to bring the fol- 
lowing points to your attention! 

"Basic BASIC Renumbering," p. 82. 

If line 10070 is changed to: 10070 IF0255 
THEN L = L - 256: H = H + 1 the program will 
renumber all of the lines in multiples of 10 in- 
stead of the "6" spacing every 25th line. 

It is better to add H = to line 10000 for safe- 
ty in case H has been prc-initialized. Incidental- 
ly, running this program renumbers its own 
first three lines! 

"NEW Restored," p. 84. 

I had problems with the FIXNEW program 
and finally figured out that it was O.K. if after 
running it, it was immediately followed by a 
RUN. 

If you started with LIST to see if it worked, it 
went to hell! My TRS-80 is new (August), may- 
be it's different. I discovered it needed loca- 
tions 40FD/FC and 40FD/FE loaded with the 
contents of register HL. Doing this necessitates 
moving the starting address back a few bytes 
otherwise you'll go past 4FFF. With my change 
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the program ran fine. 

"Get T-BUG High," p. 118. 

This is a great program for idiots like myself 
who are not too well up on machine language — 
once it is de-BUGged. I found that Figs. 2 & 3 
had their titles switched and that the BASIC 
driver had an error on line 30. Line 30 should 
switch the program to line 70, not 75!: then it 
all works fine. 

Terrific! I used this shift (now called 
TBUGHI) to figure out the FIXNEW pro- 
gram. Don't be discouraged! I'm looking for- 
ward to Issue 2. 

Keith Walker 

1075 Brush Hill Lane 

Lake Zurich, IL 

I Was Cheated 



Radio Shack's Microchess cheats to win. 

There are certain conditions that can be 
reached during normal game play with MI- 
CROCHESS 1.5 that will allow the computer 
to move illegally — cheat. These conditions are: 

1. The computer plays the black pieces. 

2. The level of play is set for IQ = 3. 

3. The computer's king must be in check and 
it cannot simply be moved out of check. 

4. One of your pawns must be blocking 
movement of one of the computer's unmoved 
pawns. 

5. Your piece forcing check must have its line 
of action cross the space immediately behind 
your pawn that satisfies condition 4. 

6. The nature of the game will be changed if 
the computer cheats. 

I stumbled on this error while playing against 
the machine and have since verified each of the 
conditions listed. Condition 6 is interesting 
since apparently, if cheating doesn't gain an ad- 
vantage, the machine won't cheat, even if the 
rest of the conditions are met. 

The sequence for the game I was playing 
when the error was discovered is listed below. 

MOVE WHrrC BLACK'S RESPONSE 



1 


D2-D4 


G8-F6 


2 


BI-C3 


F6-G4 


3 


E2-E4 


G4-F6 


4 


E4-EJ 


F6-G8 


5 


FI-C4 


D7-DS 


6 


C4-D5 


C7-C6 


7 


D5-C4 


D8-A5 


8 


D1-F3 


BS-cn 


9 


n-n 


E8-08 


10 


ES-E6 


D7-B6 


II 


F7-FS 


D8-C7 


12 


C1-F4 


E7-E5 



Note that black's 12th move is illegal in that the 
computer has moved a blocked pawn. 

I would appreciate hearing from anyone in- 
terested in this problem or its solution. 

Mike Tollerton 

RD#2 

Blossvale, NY 

More on Computer Music 

It is about time somebody cared enough for 
the TRS-80 to create a "real" magazine for it! I 
have seen several different ones — from the 



newspaper type (which are big jokes), to your 
sister magazine Kilobaud. This is by far the best 
and hopefully most successful endeavor for the 
computer hobbyist. 

I was glad when I read Dennis Kitsz's 80 Ap- 
plications column and saw that he too has a 
musical synthesizer! I would certainly hope to 
see in these pages a few articles on computer 
music, and especially applied to our TRS-80. 1 
know for a fact that my Steiner-Parker "Syn- 
thacon" has been linked to a National Semi- 
conductor PACE system. If it can be done with 
a slightly esoteric system, then why in the hell 
can't it be done with my TRS-80? 

On the subject of computer music, when is 
somebody going to come up with one for the 
TRS-80 that is humanly engineered? I have 
both Shack's "Micro Music" and Mad Hat- 
ter's "Musicmaker" and both are painfully 
laborious and mundane. How about one that 
lets you enter notes as shown on a musical staff 
and displays each note on the staff as they are 
being played? Are we going to let Apple get the 
best of us? Or how does one get to know Max 
Mathews then? 



/ would 

certainly hope 

to see a few articles 

on computer music. 



Now, how about some simple articles or 
leaching series on Assembler language. Even 
though a friend of mine (with a TRS-80) is at- 
tempting to help me, I can't seem to get past the 
NOPs and POKEs. HELP! ! ! ! I'm sure I'm not 
alone in the boat. 

Now that you know where I'm at, I'll be anx- 
iously awaiting my wonderfully speedy (choke! 
choke!) mail service for what 80 Microcom- 
puting is going to do to entice me NOT to give 
up after my first year! 

Mark S. Lucas 

724 E. Mulberry Si. 

Lancaster, OH 



Program Size? 



I just received Issue Ml and am impressed at 
the quality of both the magazine and its con- 
tent. 

After reading Rod Hallen's "Software Re- 
view," I was left with the nagging question 
which never seems to be answered until you 
purchase the software: How big is the pro- 
gram? 

Especially with a program like Line Renum- 
bering or GSF which is intended to run with 
BASIC programs also resident in memory, it is 
important to know how big the utility program 
is. Because if a Line Renumbering program is 
too large it cannot be used to renumber a large 
BASIC program. 

I'd suggest that you add program size as a 



part of all reviews. 



Dogeared Record 




Dan Waltber 
2465 Tyler Road 
Btrafagbaa, AL 



80 is superb. Your first issue must be re- 
corded as the greatest single issue of a com- 
puting magazine ever. 

I skim a magazine, dogearing an ad or article 
that 1 want to return to. Issue #1 hit a record 17 
dogears. 

Your advertisers will be pleased to know that 
they have collectively plucked eight orders from 
me. 

As Durocher said, "Push your luck." 

SeaaToaBa 

21N Harfy St. 

Cfcftow.lt 



SftDfBUg 



Getting T-BUG HI 



Received a call today from a reader in 
reference to a problem he was having with 
the article I submitted. There is a typo error 
indeed, which I did not catch in the manu- 
script. 

Line 30 of the BASIC program should 
end THEN 70 rather than 75. The peek ad- 
dress does not get incremented as the pro- 
gram currently reads. It was my error in 
submission and proofing. 

Irwhi Rappaport 

24 Hemlock Hill Rd. 

Upper Saddle River, NJ 07451 



Errata 



It has been brought to my attention that 1 
made a major goof in the printout of the 
SORT program that I submitted for publi- 
cation. "Sort 80K in 6K!" Jan. 80 Micro- 
computing. Making the following changes 
to the program as listed will provide proper 
operation. 

250 LSET DIS - D3S:PUT I. P8:GET I.P3:D3J 

= DIS 

:P1 = P3 

270 LSET DIS = D4S:PUT I, P*GET I.P4:D4$ 

■ DIJ 

■.n = P4 

320 MIDWD3J.I * N4.NI) = T2S 
330 MIDS4D4S.1 * N7.NI) - TIS 
370 IF P3 <> P4 THEN 44* 

Sorry to have inconvenienced you and 
your readers. 

D. E. FHchhom 

3504 Piermont Dr. N.E. 

Albuquerque, NM 



Continue to page 16 
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jft ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



Listing an inventory is the most common 
application for small computers such as 
the '80. Inventories are created for all sorts of 
items, from credit cards to phone numbers, and 
shuffled in many different ways. People in 
business are always looking for new ways to 
view their inventory, by type, by size, by color, 
by price ... the list is endless. 

In addition to a file maintenance program 
for adding, deleting or modifying data, the in- 
ventory software system usually contains a 
report generating program and a sorting pro- 
gram. These programs are used in combination 
to resequence the file according to key words, 
while generating hard copy or visual reports on 
the monitor. 

While the forms of various inventory systems 
may be similar, the reports generated are not. 
Inventory can be controlled by type, value, age, 
demand, quantity, location or combinations of 
the above. The point is that you must define 
your needs before purchasing a system. 

The Valuation 

As an accountant I examine an inventory's 
valuation. Methods of valuation include: 



» FIFO— First In First Out 
t LIFO— Last In First Out 
i Average Cost 
» Specific Identification 
i Retail Method 



Regardless of which method you choose, 
both beginning and ending inventories must be 
valued under the same one. Different valuation 
methods yield different profit pictures. Let's 
consider Tables 1 & 2. 

The LIFO method results in the lowest gross 
profit of all the methods illustrated. Under this 
method, the income statement includes the 
most recent costs (Last In First Out) and the 
balance sheet is left with the earliest costs. As a 
result, during inflationary times, this method 
results in a lower income and thus a lower in- 
come tax. 

But, as you no doubt anticipated, there is no 
such thing as a free lunch. Should the closing 
inventory units drop lower than the opening in- 
ventory units, the low cost units are included in 
the income statement and the tax deferral is 
reversed with a vengeance. 

Radio Shack has issued several Inventory 
maintenance programs. One of their earliest ef- 
forts was ICS (Inventory Control System 
Catalog #26-1553). This was followed by the 
manufacturing inventory control system re- 
leased at the end of 1979. Although the two sys- 



tems are significantly different, they both 
represent usable packages which will be sup- 
ported by the vendor. 

The ICS system was intended as an inventory 
tool for a merchant who purchases inventory in 
a saleable condition and marks it up for resale 
—just like a Radio Shack store. Because the 
designers of the system were familiar with their 
own operation, they obviously used it as a 
model when setting up ICS parameters. This 
observation should not be construed as a defi- 
ciency, however, it is important to understand 
the designer's intentions when considering the 
system for your use. 

The ICS parameters include the following: 

• Utilization of a stock number referencing 
scheme that requires merchandise to be coded 
with a separate prefix and suffix. The purpose 
of this scheme is to group related items yet per- 
mit item identification within the group. Ex- 
planation of the purpose of this procedure is 
not included in the documentation which ac- 
companies the system. 

• Preparation of inventory reports in which 
cost figures can be suppressed. 

• Display of a cost/retail relationship on the 
inventory report. Such information is valuable 
only if the firm has a fixed selling price or the 



inventory controlled is offered for sale to out- 
siders. 

• Batching sales prior to posting in a holding 
file until an update run is made. As a result, 
"available to sell" or "use" status is not 
available immediately. 

A prominent feature of the system is the use 
of a "reorder point" that can identify items in 
need of replenishment. Defining your optimal 
reorder points is a major financial goal and one 
that can justify the purchase price of a com- 
puter, related peripherals and software. But 
establishing your reorder points requires 
careful consideration. 

Key elements in the calculation of a reorder 
point usually include the following: 

• Rate of usage or sale; 

• Delivery time required by the vendor and 
associated transport after a purchase order is 
placed; 

• Minimum lot size required by the vendor 
when placing an order; 

• Definition and quantity of your firm's 
"Stock Out" philosophy by merchandise type. 

In addition, consider your capacity and any 
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financing requirements. Above all consider 
your rate of consumption. ICS does not main- 
tain this statistic. As a result, you will have to 
establish a separate sales accumulation system. 

Adjusting the Record 

Another puzzling problem relates to the ac- 
cumulation of inventory cost, selling price and 
on-ordcr totals. As data is entered, the product 
of the units and the price field is used to adjust a 
total record which is carried forward each time 
a posting session is completed. These totals are 
displayed when system status is requested or at 
the bottom of reports that display the inventory 
in its entirety. However, when each item is mul- 
tiplied times its unit cost and retail, the sums of 
the item detail lines may not equal the report 
total. 

This surprising situation is caused by two 
factors; the method used to update the inven-" 
tory record for receipts and the method used to 
print reports. 

When an inventory item is replenished, the 
original cost and selling prices are replaced with 
the new figures. If the new figures are the same 
or the balance on hand is zero, there is no prob- 
lem. However, should there be a difference and 
a balance of inventory remains unsold, the old 
inventory will be priced at the new cost and 
retail. Since the carry forward total has been 
adjusted by the increment only, it will now be 
different than the sum of the details. 

When a sale occurs, the cost is calculated 
based on the main file cost figures available. If 
this is different than the purchase cost, the bot- 
tom totals will be distorted even more. It is 
quite possible that the ICS owner will not be 
aware that this is happening. When a total in- 
ventory report is requested, the system does not 
recalculate the totals. The source of the total 
data is the carry forward record, each detail line 
is only printed. 

Aside from ICS distortions, there are also ac- 
counting drawbacks. Since the cost of the 
original item is lost, we can no longer use 
LIFO, FIFO and specific identification meth- 
ods of valuation. All these methods require 
more knowledge about the composition of the 
inventory than is available from ICS. In fact, 
the only feasible method is average cost, how- 
ever, to use this method, the program has to be 
modified. If you plan to use ICS for inventory 
valuation purposes, please be careful. 

If you want to use ICS to establish a retail 
control to quantify shrinkage, please be aware 
that the distortions to the cost field also effect 
the retail field. Shortage measurement might be 
difficult under these circumstances. 

Since ICS does not develop the extended 
total of the retail and cost field, I am including 
the following short program to develop the 
missing data. To use it, simply replace the 
password extension with your system's pass- 
word. Hitting RUN and entering the number of 
items in the system gives you the extended cost. 

Although this review is quite critical of ICS, 
this should not dissuade you from considering 
it. If you can live within its constraints and are 
unafraid to face some programming, it is a fine 
piece of work. It is easy to use, well-document- 
ed, and has worked well without strange 
bugs.B 
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by Bob Liddil 



Here's Captain 80 sitting in a fresh super- 
hero uniform amidst programs stacked 
to the ceiling. Normally I would be in my dis- 
guise (as a mild mannered program reviewer), 
but the influx of GAME programs is so great 
thai superhuman strength, speed and dexterity 
is required just to keep up. 

As I said in my last column. I believe very 
strongly in games. I don't mean to arouse the 
game vs simulation controversy, but I want to 
illustrate my point. Looking at the current 
market of game software. 1 wonder what hap- 
pened to imagination. 

Not to say that there is no imaginative soft- 
ware on the market. Ad\enture, Dungeon- 
quest, Sargon, Santa Paravia En Fumicioanda 
small list of others, are up, running and for 
sale. No, I'm talking about Star Trek version 
2437, Blackjack version 2340.91, Hangman 
#9000 and all the countless variations of the 
programs loaded into the phone company's 
long distance phone lines in 1964. 

I'd like to sec some REAL simulations 



How about a Life game based on the survival 
rate of apartment dwellers in New York City? 
You could call it Survive!! and program ran- 
dom degrees of Kung Fu ability into the poten- 
tial victims. Or instead of racing forever 
around the Indianapolis Speedway, how about 
a spirited game of Freeway, simulating the San 
Diego Freeway south bound from LA — com- 
plete with smog, traffic jams and Eric Estrada 
on a Kawasaki, its blue light flashing. 

I'm Not Kidding! 

These ideas are just examples of possible 
themes compared to the incredible drivel that 
manages to work its way onto the marketplace. 
If I have to shoot down one more X-wing 
fighter, or hear Darth Vader's name again, 1 
think I'll mail two pounds of magnetized iron 
to the producer in hopes of erasing his entire 
supply. 

It is for better ideas in programming, that I 



announce the First Annual Captain 80 Pro- 
gram in a Paragraph Contest. Just sit down at 
your typewriter, desk, kitchen table or 
whatever, and write out in 50 words or less, a 
program you would like to see. It isn't neces- 
sary to actually write the program, just the 
idea. 

Entries should be typed, double spaced and 
sent to Captain 80, c o 80 Microcomputing, 
Peterborough, New Hampshire 03458. Every- 
one who sends in an idea will receive a free 
membership in the SPPPp (Society for the 
Perpetuation of Perfect Programs Purveyed 
publicly). The best idea, as ajudicated by yours 
truly, will earn its creator $25. Send a stamped 
envelope to the above address and I'll send you 
a complete set of rules. Contest ends April 1st. 

The lack of high quality games leads me to 
another sore spot. Where are all the education- 
al programs? Hey, all you software producers 
out there: The TRS-80 is an educational tool! 
There are thousands of kids all over the world, 
playing Battlestar Galactica because you and 
your programmers have ignored geography, 
spelling, science, geology and all the other 
things that these active youngsters could be 
tearing into with a computer. If you are 
marketing, plan to market or have for potential 
sale, anything that resembles a kid-level educa- 
tional program, send a copy to me, care of 80 
SticnKompuiing and I'll personally review it. 
Send it on tape or disc, with company name and 
where it can be bought. 

Let me remind you, I'll review software— old 
and new — as it appears on the market or as it 
crosses my desk. I'll try (as only a true knight of 
computer justice can), to give a fair and honest 
opinion of the programs submitted by com- 
panies and individuals for my evaluation. 
You're invited to participate. Submit a short 
review of a program that you like or dislike. 

And look: If you disagree with anything in 
the column, write about it!!! I'll try to answer 
each letter (in the beginning at least), person- 
ally. ■ 
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UNLIMITED $9' 



by Sherry Smythe 



Here's a success story about a man with no 
electronic or computer background, who 
saved his business with a TRS-80. 

Bill Garlic and his wife, Priscilla, started 
Eastern States Traffic Service 25 years ago in a 
trailer with a $25 used IBM typewriter, a spirit 
duplicator and three customers. That first year 
was tough; they grossed only $750. 

Eastern States Traffic publishes a book of 
tariffs that is a shippers only source of current 
freight rates for the country. Freight rate in- 
creases are proposed by the Tariff Bureau and 
either accepted or rejected by the ICC. 

In 1955 there were five or six rate territories. 
Today there are about 35 (plus 10 intrastate). 
According to Garlic, rate changes occurred 
once or twice a year until 1979 when there were 
six. 

Bill and Priscilla updated 300 to 400 pages of 
rates, each with 450 entries, by entering the 
percentage increase in a calculator and then 
typing the new rate on a tabulated form. It took 
two to three months to revise an old list. By ker- 
chunking on the calculator at breakneck speed, 
the Garlics would still be two rate changes be- 
hind at the end of the year. It was obvious to 
Bill that something had to be done— and fast. 

Finding Help 

Last April, Bill picked up a pamphlet on the 
TRS-80 at his local Radio Shack. But trying to 
find further information about the 80 proved 
frustrating. 

Bill says there are two kinds of computerists: 
Those who want to know everything about a 
computer; and his kind, who just want to solve 
a problem and then leave the computer to do its 
work. After many fruitless attempts, he finally 
ran across a Radio Shack Computer Center 
staffed with more sympathetic personnel and 
purchased a TRS-80. But still. Bill was short of 
software solutions for his business work. 

By this time the walls were closing in on him. 
Rate changes were occurring faster than they 
could be updated. Bill figured if he was ever go- 
ing to get the programming job done, he'd bet- 
ter do it himself. With a Level II and a hand- 
book he started on the road to recovery — 
laboring hours getting the TRS-80 to run 
figures up and then down. 

Finally, after putting a lot of faith and time 
into the project, he had a program that printed 
the updated figures on the screen a page at a 
time while Priscilla copied them. His disk 
drives were on order for four months when he 
purchased re-worked ones (for the regular 
price) entailing even more study of the disk 
manual. 

Bill had an extra IBM Sclcctric II in his office 
which he found out could be interfaced as a 




Bill Garlic 



printer. After much run around and many 
phone calls, an IBM rep directed him to a com- 
pany in California with a Selectric adapter kit 
that would not jeopardize his service agreement 
with IBM. 
Bill Garlic is a grandfather and a man who 



hates tinkering. But he purchased a soldering 
iron (he'd never put two wires together before), 
and spent a frustrating week installing the mi- 
crocomputer interface. 

After some false starts the Selectric started 
clacking away. Success! Bill had his first good 
night's sleep in weeks. 

Reese Fowler of Instant Software and I 
visited Bill in his office in a lovely old New 
England hilltop home by the ocean. Despite the 
chilly day the pot-bellied, coal-burning stoves 
radiated warmth. Tucked away in the corner 
was the TRS-80 with its 32K, dual disk drives, 
and Selectric printer just waiting for the ICC to 
raise its rates again. 

And next time maybe it will update those 
rates a little faster, because Reese helped Bill 
with some new programming routines. When I 
could pry him away from the computer Reese 
put on his photographer's hat and took the pic- 
tures for this column. 

Bill says what took Eastern States Traffic 
two to three months, can now be done in two 
or three days. Increases that effect only parts 
of the country can be updated and in the mail 
in hours. ■ 
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From page 13 



Appending Programs 



1 would like to comment on an article in your 
first issue of 80 Microcomputing entitled NEW 
Restored, by Ken Fordham. 

As I understand things, addresses 
I6633(LSB) and 16634(MSB) are the end of 
program pointer, not the next line pointer. This 
is helpful when you wish to append two or more 
programs; but first a note about the 0's that ap- 
pear between each line number, and the 4 
that appears at the end of a program. 

The 0's that delineate one line from the next 
will be 1 's above 32767, and the end of the pro- 
gram (which looks like 4) breaks down in- 
to this: The first is the normal that the com- 
puter puts at the end of a line, the next two 0's 
are a 'This is the end of the program' code, and 



the 4 means that the 0's preceding are single 
precision (if they were double precision it 
would be an 8). 

When you key in NEW, you lose the end of 
program pointer, the beginning of program 
pointer ( 16548(LSB) and 165491 MSB)), and the 
first four bytes of the program become 4. 

To append two programs, you PEEK the end 
of the first program (16633(LSB) and 
16634<MSB)), POKE the beginning of program 
pointer to the end of the program pointer - 2. 
(The reason you POKE it to the end - 2 is be- 
cause you want one between lines, but don't 
want the additional two 0's that signal the end 
of a program.) Load the second program, and 
re-POKE the beginning of program pointer to 
the beginning of the first program (which will 
be different if disk is up, and will vary from one 
DOS version to another — so PEEK first if you 
use disk). 

Continued to next page 
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To recover a NEWed program, you must re- 
POKE the end of program pointer + 2 (the rea- 
son it is +2 is because you want the end or pro- 
gram code O's at the end of a program), the first 
four bytes and if you use disk, the beginning of 
program pointer. 

Some precautions: You must remember 
that you are not working in base 10; The 
largest number you may have is 2S6. It is 
equally important to realize that after you key 
in NEW, any POKEs you make, are going to 
write into the resident program. 

That is, if you key in POKE 17129,241: 
POKE 17130, 66:POKE 17131, 0:POKE 
17132.0-.POKE 16633,0:POKE 16634,67 you 
will be (starting at 17129) overwriting the first 
57 bytes of your program! 

The way around this is to make the first two 
lines of your programs (lines and 1) shift 7 
RENTS. Since a' takes up three bytes, this gives 
you 16 bytes which will always be the same set 
of numbers in each and every program. 

If you make only one POKE at a time (press- 
ing enter after each entry), you cannot over- 
write more than 10 bytes. To correct these 10 
bytes the easy way just key in line 0' and line I '. 
For increased protection, I recommend making 
the first three lines shift 7 REM's. 

To find the end of the program if you forgot 
to PEEK prior to keying NEW, just key (in the 
DIRECT mode) FOR N = 17129 TO 30000: 
PRINT PEEK (N);:NEXT 

Hit enter and be ready to press SHIFT®. 
Look at the stream of numbers until you spot 
the first set of 4's— the end of a program. 
Look back one line so that you can calculate the 
address of the LSB of the pointer of the last 
line, add the number of bytes in the last line and 
add two to that number. 

That will be the address of the end of the pro- 
gram to be POKEd into 16633 and 16634. 

One last note: Table 1 is a ROM codes table. 
Missing from this table is code 251, which is ' 
(used in shift 7 REM). A shift 7 REM is 58 147 
251 . Also, code 188 which is listed as "TAB" is 
actually "TAB(". 

Knowing the ROM codes allows you to 
change any command to any command (such as 
PRINT to LPRINT) with the following pro- 
gram (keyed in the DIRECT mode): 

FORN=l7l28TO32766:iFPEEK(N) = 0THENN=(N + 4): 
NEXT N:ELSE IF PEEK(N) = AND PEEK(N + l) = AND 
PEEK(N + 2) = 0THEN END:ELSE IF PEEK(N) = X THEN 
POKEN.Y:NEXT:ELSE NEXT 

Where X = the old ROM code number, and 
Y = the new ROM code number. (Program by 
Craig Werner) 

Mr. Robin L. Salmansohn 

1855 Woodland Road 

Abington, PA 

Don't Give Me Grief 



In at least two articles you printed an error 
that will cause many users much grief and OM 
errors! The Radio Shack EDTASM editor/as- 
sembler lists the 1A19H BASIC 2 entry point 
for a Ready. This address also gives OM errors 
and unsettles the BASIC Interpreter. The 
0072H entry point works properly and will not 



cause any problems. 

I have been using it in the RETURN to BA- 
SIC from our BEEP program (the return after 
the beep has been loaded and boots itself into 
the USR memory location, not the subroutine 
return). 

Below you will find a copy of the letter I re- 
ceived from Tandy. 

Harvey A. Kurtz Jr. 

President K M C S 

Box 02205 

Cleveland, OH 

There is afar better entry point to use instead 
of I A 19H and it is 0072 H. A jump to this ad- 
dress returns a READY and does not give the 
OM error. If you should have any further ques- 
tions, please contact us at our toll-free number. 
Radio Shack Computer Services 
John I. Snodgrass, Jr. 
Manager 



Please for novices 

like myself have 

some short articles 

written in plain English. 

Fewer Assumptions 



I have just received my first copy of your 
magazine. 

You stated that you wanted feedback about 
your first issue. As a medical school professor, 
I am using my three disk drive 48K TRS-80 for 
word processing, writing of seminars and stu- 
dent objectives, class design and short enter- 
tainment programs. 

I am interested in learning more about the in- 
ner workings of the TRS-80, especially machine 
and assembly language. However I find the ar- 
ticles in your first issue way over my head. Most 
of them discuss machine language methods to 
do things with or to the TRS-80. Unfortunately 
the jargon and jumps of language are indeci- 
pherable to me. Your writers obviously assume 
everyone is as sophisticated as they are. Some 
introductory articles on how to use machine/ 
assembly language would be valuable. Some in- 
troductory articles on how to function without 
cassette tape loading would be helpful. Some 
introductory articles on jargon would be help- 
ful. What is a hash? Some introductory articles 
on how to get at the contents of ROM and 
RAM and what to do with the data when it 
shows up on the video screen would be very use- 
ful. 

Additionally the problems of circuit dia- 
grams make little sense to me and probably to 
most people who want to use the computer to 
help communicate with others and write pro- 
grams that will run faster. 

I know that some of this information is in the 



Radio Shack hardware books, but even there 
the information is cursory. 

In the article on decision-making there were a 
number of errors that made the program break- 
down as written. I changed line numbers and 
instructions somewhat. 

Please for novices like myself have some 
short articles in plain English, that if ac- 
cumulated and placed in a ring binder will, over 
the course of several months, explain how to 
get the most out of my computer. How do you 
use the editor/ assembler, for example (the Ra- 
dio Shack instructions are awful!). How do you 
use machine language? 

I understand the theory of computers. 1 have 
been working with systems analysts analyzing 
mass data and clinical activities for years. I 
have a moderate understanding of program- 
ming in BASIC and some acquaintance with 
FORTRAN but the inner works, and how to ac- 
cess them and use them, escape me at present. 
Christopher M. G. Buttery MD MPH. 
4609 Templar Drive 
Portsmouth, VA 



Useful Locations 



A long time ago, during 1977, 1 had just got- 
ten started in computers. I went to the comput- 
er store and bought some magazines and 
books, eager to learn more about this fascinat- 
ing subject. One of the magazines I bought was 
Kilobaud. When I got home, I browsed 
through everything. The Kilobaud magazine 
was sort of thin and the table of contents was 
on the front cover. I hated the typeface, be- 
cause all the other computer magazines had 
nice neat ones. So, I got turned off to it. 

Then, in November of 1979, I was at the 
computer store again and I picked up an issue 
of Kilobaud. It looked really nice, was thicker 
and the articles looked interesting. I bought it. 
After I had gotten a chance to read it, I realized 
that this was a very good magazine and from 
reading the subscription ad, I knew I missed out 
on a lot of good articles. So I went and got a 
subscription to Kilobaud and 80 Microcom- 
puting. 

In regard to "Hidden codes and Missing 
chips," I discovered some other memory loca- 
tions that might be of use. The big one is x40Bl , 
which is the pointer to the end of memory mi- 
nus two. If you have 16K and you haven't re- 
served any memory, then PEEK( 16561) should 
be 254 and PEEK(16562) should be 127. 

A nice way of altering this would be to POKE 
the new values in those locations, then execute a 
CLEAR. This is a way to change the memory 
size without losing your program or reinitializ- 
ing the computer. 16561 is the low order byte 
and 16562 is the high order byte. In 16K, the 
127 and 254 from above mean 127*256 + 254, 
which is 32766, plus two is 32768, which is the 
memory size used when no memory is reserved. 

Jim Raden 

602 W. Wayne 

Maumee, OH 
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SO NEWS 



edited by Michael Comendul 



A Computer for Business 



How does a small engineering company that 
needs — but can't afford — a large computer, 
survive in today's business world with larger, 
computer-equipped competitors? 

By adapting the hobbyist's microcomputer. 

The John West Company, specializing in pe- 
trochemical and refinery-related engineering 
services, did just that— using the $2500 Radio 
Shack TRS-80 as a base. The entire system cost 
under $5000, interfacing the company's IBM 
Selectric II typewriter as a printer. 

"We couldn't afford the large computers our 
competitors utilized, but we felt like we had to 
take advantage of the efficiencies, and just 
plain better job, that a computer affords in 
special engineering applications," recalled 
West. 

While no computer on the market could do 
what the company wanted at an affordable 
price, several small microcomputers came 
close. The hardware was adequate, but soft- 
ware was limited mostly to BASIC programs. 

Available maintenance and a national repu- 
tation prompted the selection of a Radio Shack 
TRS-80 computer as the base of the company's 
computer system. 

West's 48K TRS-80 has two floppy disks. 
The first handles 57,000 bytes of memory; the 
second handles 80,000 bytes. 

"With standard software (an Electric Pencil 
program and general business programs), we 
have basically the same word processing capa- 
bility provided by much larger machines — at a 
very modest price," West explained. 

Also standard are general business programs 
that cover everything from accounting and bill- 
ing to payroll. 

Additional engineering programs, often un- 
available from computer manufacturers, were 
specially developed and usually inexpensive. 

For less than the cost of a part-time employee 
John West has a computer system ideal for his 
small, technically oriented business. 



Hamboree/Computerfest 



A Hamboree and Computerfest will be held 
on Sunday, March 30, at the Maryland State 
Fairgrounds at Timonium, Maryland. 

In addition to commercial exhibitors includ- 
ing Radio Shack and Heath, a number of 
smaller firms will be selling software and ac- 
cessories. Several computer stores will also be 
exhibiting. The fest is planned around an 
equipment flea market. 




John West: His entire system cost under $5, 000. 



Speakers scheduled include Wayne Green, 
publisher of 73 Magazine, Microcomputing 
and 80 Microcomputing. One of Green's two 
public appearances in 1980, he will be speaking 
about marketing ideas in microcomputing. 

For more information contact Joe Lochte, 
2136 Pine Valley Drive, Timonium, MD 21093. 



Children's Program 



Computers are for kids— at least that's what 
the 30 students at the Woodland School in 
Spots wood, New Jersey believe. 

Students in grades four through seven, have 
been writing their own programs covering 
everything from geography to graphics on a 
Radio Shack TRS-80 microcomputer for about 
a year now. They arc part of an advanced stu- 
dent program that obtained a TRS-80 in Jan- 
uary of 1979 with a grant from the New Jersey 
Department of Education. 

Now at the request of teachers within the 
school, the students are creating and writing 
computer programs for use in the classroom. 
The programs are designed for grades one 
through seven in mathematics, social studies, 
science and language arts and to prepare stu- 
dent for quizzes. 



The students at Woodland School were 
filmed recently for the syndicated children's 
television program, Kidworld, a children's pro- 
gram designed to give youngsters an opportun- 
ity to report what is going on in their world. All 
ideas for the content of the program are sub- 
mitted by the youngsters themselves. 

According to their instructor, Laura Zatz, 
"The TRS-80 represents a challenge to my stu- 
dents because it is something new in learning 
and promotes creative and logical thinking. Ev- 
en slow learners can benefit from using the 
TRS-80." 



Software Catalog for M odel-II 

A software catalog for Radio Shack's 
TRS-80 Model-II computer systems describing 
accounts receivable, accounts payable, general 
ledger, payroll, inventory, rental management, 
order entry and a variety of financial and 
mathematical programs is available from Na- 
tional Marketing, Inc., Hollywood, FL. 

The programs operate on a 64K Model II 
with built-in disk. They are priced from $15 to 
$100. 

The catalog is offered free. 

Readers Service ^ 170 
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Index Sequential 
Access Method 



An Index Sequential Access Method for con- 
trolling business application files on diskette is 
available from Johnson Associates, Redding, 
CA. 

The ISAM system is a series of subroutines 
the user includes in his program. Calls to these 
subroutines store or retrieve data by referenc- 
ing a key field within the record. An additional 
set of utility programs allows the user to create 
a new data file or to reorganize an old one. 

All ISAM files are supervised by the TRS-80 
Disk Operating System, thereby providing 
standard space allocation, directory, copy, kill, 
backup and password services. 

Any record field can be designated as the key 
field and all subsequent adds and retrieves are 
based on the content of this field. Records can 
be added, updated or deleted at any time and in 
any sequence. 

The system allows up to 15 ISAM files to be 
open simultaneously, however, memory re- 
quirements for such an application would be 
large. 

Readers Service t-* 174 



Control Your Peripherals 



The TRS-80 Breadboard, a hardware device, 
available from Group Technology, Ltd., 
Check, VA, allows the microcomputer user to 
design custom interfaces for his peripherals. 
The TRS-80 Breadboard contains bi-direction- 
al data bus buffers, a logic probe, a solderless 
breadboard, and an eight-device address de- 
coder that can be used for either accumulator 
I/O or memory-mapped I/O. The user can se- 
lect not only the mode of operation for the 
device address decoder, but also the four or 
twelve most significant bits of the device ad- 
dress. 

The Breadboard allows the user to communi- 
cate with control signals in the microcomputer 
not readily accessible. It can be used with 4K 
Level II TRS-80's up to dual floppy disk 48K 
Level II systems. 

A 190-page textbook by Dr. Jon Titus, 
TRS-80 Interfacing, instructs the Breadboard 




user in the construction of device address 
decoders, input ports, output ports and 
synchronization signals. Hardware interfaces 
and software listings are shown for A/D and 
D/A converters, programmable interface 
chips, data loggers, a traffic light controller and 
a digital logic tester. 

The text includes 18 experiments that can be 
performed by the user with expected results. All 
programming is done in BASIC. 

The TRS-80 Breadboard is available as a 
parts list and instructions for S3 .00 or as a kit. 
Kit prices range from $25 to $250.00. TRS-80 
Interfacing, Book I, is priced at $8.95, plus 
$1.00 shipping and handling. 

Readers Service *^ 1 77 



Level II Guidebook 



Dr. David A. Lien, author of the TRS-80 
User's Manual, has released Learning Level II, 
a fully illustrated guidebook created specifi- 
cally for users of the Level II TRS-80. 

The book, directed toward the novice, ex- 
amines all Level II BASIC beyond Level I with 
step by step approaches covering special char- 
acteristics. 

The manual explains how to use the editor, 
dual cassette operations, the expansion inter- 
face box with the real-time clock, printers and 
other peripherals. 

Learning Level II costs $15.95 plus $1.45 
postage and handling and is available from 
Compusoft, San Diego, CA. 

Readers Service *^ 178 

Checkbook Without 
Tape Record-keeping 

Manhattan Software, New York, NY, has 
released its latest program. Checkbook Plus, 
which provides a once-a-month solution for 
checkbook and bank-statement reconciliation. 

The user enters his checkbook balance, the 
bank's balance, outstanding checks and bank 
charges to check his own balance against the 
bank's figures. A special arithmetic-checking 
section with optional automatic per-check- 
charge insertion verifies each intermediate 
balance. 

If figures don't agree, the program guides 
you through possible error sources. 

The cost is $9.95. 

Readers Service ^179 



TRS-80 Breadboard 



Custom Furniture 



Custom wood office furniture providing 
maximum work surface with accessibility, is 
available for the TRS-80 microcomputer sys- 
tem from AVS, Alviso, CA. 

The unit fits into the corner and mates with 
an optional printer/typewriter platform or 
storage hutch. 

All TRS-80 units, though built-in, simply 
drop into place and do not require any mount- 




Custom TRS-80 cabinets 



ing hardware or tools. 

The standard unit holds the monitor, cas- 
sette, keyboard and expansion interface. Op- 
tions are available for mounting the screen 
printer and/or disk drives. 

Readers Service v* 1 83 



TRS-80 Microwave 



Interactive Microware, Inc., State College, 
PA, is developing a library of Radio Shack 
TRS-80 software. These include the following: 
Basex Compiler, an easy-to-learn language that 
runs up to 20 times faster than BASIC ($25 + 
$8 for 97-page manual); Mirrorays, a game in 
which the user flashes rays of light into a black 
box to locate hidden mirrors, which light up 
and reflect the rays when hit; a Compact 
Graphics Interpreter creates graphic designs 
with a simple set of numbers; a Lunar Lander 
Simulator provides real-time simulation and 
control of a lunar module; Battlegrid. a real- 
time game enabling two players to attack each 
other's forces. The number, type and size of 
battle pieces can be specified by the players. 

All of these programs operate on a 16K Level 
II TRS-80 and sell for $7.95, except as noted. 

Readers Service s 1 65 



BASIC Protection 



Data Associates, Framingham, MA, has re- 
leased a program, Unlist8, that will automati- 
cally protect BASIC programs against un- 
authorized modification. 

It runs on a single disk system with 32K 
memory and inserts hidden passwords and 
copyright notices selected by the user so the 
program cannot be listed or printed though it 
can still be RUN, CSAVEd, CLOADed, disk 
loaded and disk saved as usual. 

Options permit unlisting all lines, or each 
n'th line, or specified blocks of line numbers. 
This program can also be used to relist a pro- 
tected program provided that the password is 
known. It can relist each line, or blocks of 
specified line numbers. 



f Reader Service— see page 147 
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Unlist8 is provided with an instruction man- 
ual and three copies on cassette for $19.95 
postpaid. 

Readers Service * 166 



The Pencil/Pal 



Microcomputer Specialists, Elkins Park, 
PA, has released Pencil/Pal to be used in con- 
junction with the Electric Pencil. 

With Pencil/Pal you can automatically 
merge your letters with an address file and 
LPRINT them. 

Pencil/Pal is compatible with the lowercase 
modification. One or two fields within your ad- 
dress file, even area codes or zips, may be used 
to select letters to be printed. 

The program costs S3S. Send SS for docu- 
mentation only — deducted from purchase 
price. 

Readers Service ^180 



Storage and 
Retrieval for TRSDOS 



ISAR is a BASIC data base management 
system that uses TRSDOS random file struc- 
tures and the limited TRS-80 chaining tech- 
niques. This means you only have as much of a 
program in memory as necessary. 

ISAR consists of six modules that create any 
number of new files, define all elements within 
each file and manipulate them according to a 
menu. Files are sorted with Shell-Metzer. 

ISAR is available on cassette for SI 3. 95 or 
diskette for $16.95 from The Alternate 
Source, Lansing, Ml. 
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Income Tax For The TRS-80 



This book contains more than 40 1979 In- 
come Tax programs in 100 pages for the 
TRS-80. 

Most of the programs are for LPRINT and 
several show how to convert these to PRINT 
only. 

Programs cover child care, personal resi- 
dence, special 10-year averaging and underpay- 
ment. A chapter is devoted to tax credits. 

The price is $14.95 and is available from 
Gooth Software, Louis, MO. 

Readers Service ^ 182 



Clock Modification 



Mumford Micro Systems, Summerland, 
CA, has released a new clock modification for 
the TRS-80. The SK-2 3-Speed Mod is a small 
circuit board with five integrated circuits which 
can be mounted inside the keyboard unit or ex- 
ternally. 

It interrupts the main clock line to the Z-80 
and allows switching from normal speed to a 50 



percent increase and a 50 percent decrease. 
Switching is controlled by a toggle or by soft- 
ware. 

Disk users can add a control line to the ex- 
pansion interface to automatically force a re- 
turn to normal speed at any time. This elimi- 
nates the need to write speed commands into 
your programs or modify the operating system. 

An LED indicates when the computer is not 
at normal speed. 

The SK-2 comes assembled and ready to in- 
stall for $24.95 (plus .75 postage). Only four 
connections are necessary to the computer. 

Readers Service *• 173 



Business- Aides 



Occupational Computing Company, Inc., 
Woodland Hills, CA, has released its business 
aides system. 

These accounting and management pro- 
grams include: Accounts Receivable, Billing 
and Inventory Control for both manufacturing 
and finished goods; Accounts Payable; Pay- 
roll; Client Accounting. 

Prices range from $350 to $1495. 

Readers Service *- 168 



Color Display from Percom 



The Electric Crayon, a computer-operated 
color graphics generator/controller from Per- 
com Data, Garland, TX, is designed to 
generate color displays on either a TV set or 
monitor. 

The Electric Crayon includes its own ROM 
operating system, EGOS, that accepts single- 
character commands directly from a parallel 
ASCII keyboard or program-generated com- 
mands. 

A self-contained control computer, the Elec- 
tric Crayon provides lK-byte of on-board pro- 
gram RAM, an EPROM chip and a second 
dual bidirectional 8-bit port for peripherals. It 
has 10 display modes — an alphanumeric-semi- 
graphics mode, a high-density semigraphics 
mode and eight graphics modes. Up to eight 
colors can be generated. 

The Electric Crayon measures 2-Vi inches 




high by 9 inches deep by 1 2 inches wide and sells 
for $249.95. 

Other options include: 

BASIC language color graphics programs on 
minidiskette. 

A 34-conductor ribbon cable to interconnect 
the Electric Crayon to the TRS-80 printer port. 

RAM chips for adding refresh memory for 
higher density graphic modes. 
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Machine Language Sorts 



A machine language Generalized Subroutine 
Facility for the Model II is available from 
RACET, Orange, CA. Its functions include 
multi-key/multivariable in-memory sort, 
multi-key character string in-memory sort, 
USR PEEK and POKE capability— both byte 
and word and fetch argument. The subroutine 
will compress and uncompress data, move it in 
blocks and prorogate across arrays. 

The subroutine will sort 1000 elements in six 
seconds and carries up to 15 arrays together 
with multiple mixed ascending/descending 
keys. 

The cost is $50 on your DOS diskette. 

Readers Service *^ 172 



Payroll Program 



Small businesses with TRS-80 Model I Com- 
puters can now utilize Data Train, Inc's Payroll 
for their dual mini-disk 32K systems. 

The DTI Payroll allows 50 employees per 
diskette and runs in all states with state, federal, 
and local taxes and employee records set by the 
user. Other features include: Monthly, quarter- 
ly, yearly pay and hour records; recording of 
handwritten (after the fact) checks; departmen- 
tal reporting; maintains W-2 and 941; special 
reports for departments, unions, earnings, tax. 

Fixed programmed reports include: Checks 
and/ or stubs, register, journal, employee list/ 
records, mailing labels and others. 

The price is $235 and is available from Data 
Train, Inc., Grants Pass, OR. 

Readers Service **• 175 



Power Line Filter 



Percom Electric Cravon 



To eliminate most of the sensitivity of the 
TRS-80 to power line noise and reduce its 
television interference, Percom Data Com- 
pany, Garland, TX, has introduced a simple 
power line filter. The following materials are 
available from Percom and (except for the 
filter) most hardware and electronic stores: 
Corcom 10R3 EMI Filter 
3-wire power cord (Belden #172378) 
Power cord strain relief (H.H. Smith #939) 
117 V ac Socket (H.H. Smith 1280-103) 
4" x W x 2'/4" Minibox (Bud CU-2103-B) 
6-32 machine screw and hex nuts 

Readers Service * 163 
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DISCOVER THE MAGIC OF WORDPROCESSING 

AND TURN YOUR TRS-80* INTO 

A VERITABLE "OFFICE WIZARD" 

WITH A "NEC SPINWRITER" 




NEC 5530 

(CENTRONICS I/O) 



What makes NEC your best typewriter quality printer value? 

1. The one and only print "thimble." SPINWRITER'S DURABLE (up to 30 
million impressions) and unique reinforced plastic print element. Up to 
128 characters per print element, with a wide variety of typefaces to 
choose from. 

2. SPEED and RELIABILITY. The SPINWRITER gives you up to three times 
the speed of IBM "Golf Ball" type mechanical printers, along with the 
advantages of a true electronic output printing device. 



3. HUMAN EAR COMPATABILITY. The low pitched strumming noise made 
by the NEC Spinwriter won't leave your ears and nerves aching after a 
hard day's use, as Dot Matrix and mechanical printers tend to. 



THE NEC SPINWRITER 
IS FULLY SERVICED BY NEECO. 



NEC 5530 SPINWRITER (plug compatible to trs-so*) $2495.00 

Word Processing Software Electric Pencil" $ 1 00.00 




Call or Write today for NEC Specifica- 
tions Sheet. (Specify TRS-80*) 

*TRS-80 Is a Trademark of Tandy Corp. 



• 143 




NEECO 



679 Highland Ave 
Needham, MA 
02194 



Mon-Fri 9:30-5:30 

MasterCharge & 

Visa Accepted 



(617)449-1760 



t* Reader Service— see page 147 
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Instant printing/instant pricing, use a computer 
to impress customers— and give accurate quotes. 

Printer's Apprentice 



Richard Barnes 
1515 S. Glendale 
Sioux Falls, S.D. 57105 



One small-business application where the 
microcomputer has proved effective and 
cost efficient is the print industry. There has 
been an astounding revolution in this field 
prompted by the development of the "instant 
printing" or "quick print" business. 

According to Printing Impressions, an in- 
dustrial trade journal of the printing world, the 
quick print business has made commercial 
printing available to many businesses and indi- 
viduals who had previously been using office 
mimeographs and copying machines. The mag- 



azine also pointed out that the average quick 
print plant in the United States last year grossed 
an average of S 174,000. 

A new problem emerged with the develop- 
ment of the quick print plant and it is a problem 
that can be resolved through the use of the 
microcomputer. 

Variable Pricing 

While each small print shop has its counter 
price sheet, giving customers prices for jobs 
that require 100 or 500 copies, the small office 
staff is often perplexed when asked to quote a 
price that is not on the limited price sheet. It is 
an area where mistakes can be costly, and a 
small printer can find that he has made a com- 
mitment on a bid while omitting an important 
cost element. 
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One small printer recently submitted a bid on 
a difficult printing job which was $400 under 
the next highest bid. He won the bid, and real- 
ized that he had forgotten to include his print- 
ing costs for the second side. 

If the small printer grosses the estimated 
$174,000 a year, with a one percent error factor 
he could easily lose $2,000 a year— enough to 
pay for a small computer system. 

The program for a small quick print shop can 
be relatively simple. It includes instant access to 
a price schedule. By writing a program that asks 
for all data relating to the printing costs, error 
by omission is next to impossible. 

Secondly, such a program offers the public a 
fair print pricing policy. 

As a good businessman, the printer should 
know his fixed overhead, how many copies he 
can produce in one hour and his paper costs. 
The only other variable should be the number 
of copies needed. With computerized printing 
prices, the customer is assured that the price 
given is accurate and fair. 

The instant printer tries to turn around his 
printing business within one day or two, at the 
most. Instant printing, necessitates instant pric- 
ing. 

The Prog ram 

Our pricing program is designed for the con- 
venience and use of the walk-in customer. It 
can also be used by the staff in quoting prices 
by phone, but the public is encouraged to use 
the system. 

Since the unit sits unattended in our lobby, a 
routine is used to lock out inappropriate re- 
sponses throughout the program. GOTO 1000 
clears the screen and sends the program to an 
endless loop, telling the user to call someone for 
assistance. Few know how to BREAK out of 
the loop and the computer keyboard remains 
locked so that the user cannot toy with the 
machine while waiting for a clerk. 

The two most important variables in deter- 
mining the price of a printing job are the 
number of copies, and the size and quality of 
the paper stock being used. It is also important 
that the businessman determine his overhead 
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and the cost per thousand of printing a job. 

Line 55 sets the press run (PR) at S7 per thou- 
sand copies for overhead. That figure varies 
with each shop depending upon staff, rent and 
output. 

The program begins by asking the user what 
kind of print bid he needs. Line 210 sends the 
program to the routine selected by the user. 

The most common selection is sheet fed 
printing. To determine the price, the program 
needs the number of copies, the size of paper, 
whether it is to be printed on one side or two 
and whether a surcharge for color stock (paper) 
should be added. 

Using a minimum order of 100 copies, line 
3 10 takes the value of Q (quantity) and converts 
it to a minimum of 100 copies for the purpose 
of billing. Because different stocks will vary ac- 
cording to size, lines 390 through 410 determine 
the paper (PA) costs. If a printer adds a percen- 
tage to his actual costs, this is the place to do it 
so that it is included in the final billing. If your 
paper costs go up, a simple edit of these lines 
adjusts the program to the increase. 

GOSUB 2000 asks whether the order is to be 
printed on one side or two. If two sides are 
needed, a second plate charge is added (Line 
2030), the press run (PR) is doubled (Line 2040) 

Our pricing program is 

designed for the 

convenience and use of 

the walk-in customer. 

and a 10 per cent charge is added to the paper 
costs for waste and handling. 

GOSUB 3000 determines whether the print- 
ing job will be run on 201b. white or 201b. color 
stock. The additional markup in GOSUB 3000 
for color paper by size, seems to be an industry 
standard. The program adds 50* per hundred 
for 8 Vi x 1 1 and adds 75C per hundred for 8 Vi x 
14. This may vary with market areas and 
should be checked locally. 

Determining Price 

The main algorithm in line 470 figures the 
cost (C) as the value of the plate (variable W at 
$2 each), plus the press run (PR) times M (the 
number of copies converted to a thousand or a 
fraction thereof), plus the paper costs (PA) 
times M, plus the surcharge for color stock. 

The program then asks for bindery services 
in lines 510-530. Folding, stapling, collating, 
padding, cutting and drilling are all included in 
the offer and the user selects the service needed. 

On occasion, the customer needs his order 
folded, collated and stapled. The program of- 
fers the customer multiple bindery services by 
looping through the selection until the 
customer enters a response to let the computer 
know that no other services are needed. The 



Program Listing. 



HELLO. 



TRS-8B COMPUTER" 



55 PR-7 

60 PRINT " 

70 PRINT 

80 PRINT "I CAN ANSWER MOST OF YOUR QUESTIONS ABOUT PRINTING PRICES" 

90 PRINT "JUST FOLLOW THE INSTRUCTIONS. ENTERING THE PROPER RESPONSE." 

100 PRINT "BE SURE TO HIT THE 'ENTER' KEY AFTER COMPLETING EACH ANSWEP." 

110 PRINT: PRINT "FOR WHICH ITEM WOULD YOU LIKE A PRICE QUOTE?" 

120 PRINT " (1) OFFSET PRINTING — SHEET FED" 

130 PRINT " (2) ENVELOPES" 

140 PRINT " (3) BUSINESS CARDS" 

150 PRINT " (4) CARBONLESS BUSINESS FORMS" 

160 PRINT " (5) TYPESETTING" 

170 PRINT " (6) GRAPHIC ARTS" 

180 PRINT " (7) COLOR PRINTING" 

190 PRINT " (8) OTHER..." 

200 INPUT L: IF L-0 OR L>5 THEN 1C00 

210 ON L GOTO 250,4000,4500,5000,1000,1000,1000,1000 

250 CLS 

260 PRINT " ALL PAPER IS ON 20 LB. WHITE BOND" 

270 PRINT: PRINT "ANSWER BY ENTERING THE CORRECT RESPONSE AND HIT THE" 

280 PRINT " 'ENTER' KEY." 

290 PRINT: PRINT "HOW MANY COPIES DO YOU WANT?" 

300 INPUT Q : IF Q«0 THEN 1000 

310 IF Q',100 THEN Q-100 

320 M-Q/1000 

330 PRINT " 

34 PRINT " 

350 PRINT " 

360 PRINT " (3) 11 X 17 ?" 

370 INPUT K 

380 IF K-0 OR K>3 THEN 1000 

390 IF K»l THEN PA-6.52 

400 IF K-2 THEN PA-8.30 

410 IF K-3 THEN PA=13.05 

450 GOSUB 2000 

460 GOSUB 3000 

470 C • W + ( PR * M ) + ( PA • M ) + R 

480 C - INT((C*.005)"100)/100 

490 CLS 

500 PRINTP525, "YOUR PRINTING ORDER WILL COST $"jC 

510 PRINT: PRINT " DO YOU NEED BINDERY SERVICES?" 

520 PRINT " (1) YES" 

530 PRINT " (2) NO " 

540 INPUT P 

550 IF P-l THEN 600 

560 PRINT " THANK YOU AND HAVE A NICE DAY !" 

570 PRINT:GOTO 930 

600 CLS 

610 PRINT "THE FOLLOWING SERVICES ARE AVAILABLE WITH YOUR" 

620 PRINT " PRINTING ORDER. PLEASE ENTER THE NUMBER OF" 

630 PRINT " THE SERVICE YOU NEED.* 

640 PRINTiPRINT TAB(45) "MIN."; TABI58) "COST" 

650 PRINT TABI45) "CHG."; TAB(57) "PER 100" 

660 PRINT: PRINT "(1) FOLDING"; TABI45) " S2 . 00" I TAB ( 58 ) "$ .50* 



WHAT SIZE PAPER WOULD YOU LIKE?" 

(1) 8.5 X 11 ?" 

(2) 8.5 X 14 ?" 



2) STAPLING OR SADDLE PTTTrHINO";TAB!45) "S2.00"; TABI58) "SI. 00" 

3) COLLATING COPIES" , -TAB ( 45 ) " S2 . 00" ; TAB! 58 ) "S .50" 

4) PADDING - USUALLY 50 COPIES PER PAD" ; TAB ( 45 ) "S2 . 00" ;TAB ( 58 ) "S .3t 

5) CUTTING - PER 500 COPIES"; TAB145) "$2.00" ;TAB( 58) "S .25* 

6) DRILLING - PER HOLE" ; TAB ( 45 ) "S2 . 00" ;TAB( 58 ) "S .25" 



670 PRINT 
6 80 PRINT 
6 90 PRINT 
700 PRINT 
710 PRINT 
7 20 PR I NT -------------- 

730 INPUT G 

740 ON G GOTO 7 50,760,770,780,790,800 
750 F-.5 : GOTO 810 
760 F-l : GOTO 810 
GOTO 810 
GOTO 810 
: GOTO 810 
: GOTO 810 
F) 
THEN B-2 



<lCf 



70 F-.5 

80 F-.3 

90 F-.2 

.25 : 
810 BMQ/lf 
820 IF B<2 
830 CLS 

840 PRINT "YOUR PRINTING COSTS ARE S";C 
850 B«INT( (B+.005)*100)/10O 
860 PRINT "YOUR BINDERY COSTS ARE $";B 
870 PRINT "YOUR TOTAL JOB COSTS S*;(C+B) 

880 T-(C*B)*.05 
890 T-IHT( (T*.00S)M0O)/100 
900 PRINT " SALES TAX: S";T 

910 U-C+D+T 

920 PRINT:PRINT " TOTAL: S";U 

930 PRINT:PRINT "IF YOU NEED ANOTHER PRINTING QUOTE HIT THE" 
940 PRINT " 'ENTER' KEY.* 

950 INPUT I: CLS: GOTO 60 
1000 CLS 

PLEASE CALL SOMEONE FOR ASSISTANCE" 
00: NEXT X 
* MY MEMORY BANKS DO NOT HAVE THE INFORMATION NEEDED" 



TO RESPOND TO YOUR REQUEST" 
THANK YOU" 



1010 PRINTP330, 

1020 FOR X-l TO 

1030 PRINT:PRINT 

1040 FOR X-l TO 500: NEXT X 

1050 PRINT:PRINT " 

1060 FOR X-l TO 750: NEXT X 

107 PRINT: PRINT " 

1080 GOTO 1080 

2000 PRINT "DO YOU WANT IT PRINTED ON 1 SIDE OR 2 ?" 

2010 INPUT S 

2020 IF S-0 OR S>2 THEN 1000 

2025 REM ■■■ FIGURES THE COST OF THE PLATE AT $2 ■** 

2030 W- S*2 

2B4B IF S-2 THEN PR=(PR*2): IF S=2 THEN PA=PA+ (PA". 1 ) 

2050 RETURN 

3000 PRINT "DO YOU WANT IT PRINTED ON COLORED PAPER?" 
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3B1B PRINT " (1) YES" 

3020 PRINT " (2) NO " 

3030 INPUT R : IF R-0 OR R>2 THEN 1000 

3040 IF R-2 THEN R-0: IF R«0 THEN 3080 

3045 REM »•* COMPUTES SURCHARGE FOR COLOR PAPER BY SIZE *** 

3050 IF K-l THEN R«(M*5) 

3060 IF K«2 THEN R«(M*7.5) 

3070 IF K-3 THEN R-(M*10) 

30B0 RETURN 

4000 REM *** ENVELOPE PRICING *** 

4010 CLS 

4020 PRINT " HOW MANY ENVELOPES DO YOU NEED?" 

4025 PRINT ' (DUE TO PRESS SET UP, MINIMUM ORDER OF 500 PLEASE)' 

4030 INPUT N : IF N-0 THEN 1000 

4035 IF N<500 THEN N-500 

4040 M-N/1000 

4050 PRINT:PRINT "WHAT SIZE AND KIND OF ENVELOPE DO YOU NEED?* 

4060 PRINT " (1) SMALL 6 3/4 WHITE PLAIN' 

4070 PRINT " (2) SMALL 6 3/4 WHITE WINDOW' 

4080 PRINT ' (3) NO. 10 WHITE PLAIN' 

4090 PRINT ' (4) NO. 10 WHITE WINDOW' 

4100 PRINT ' (5) NO. 10 COLORED STOCK' 

4110 PRINT ' (6) OTHER..." 

4120 INPUT B 

4130 IF B«0 OR B>5 THEN 1000 

4140 REM *** COMPUTES SURCHARGE FOR ENVELOPE STOCK •*« 

4150 IF B«l THEN E'1.20 

4160 IF B-2 THEN E-1.50 

4170 IF B-3 THEN E-1.50 

4180 IF B-4 THEN E-1.75 

4190 IF B-5 THEN E-3.50 

4200 PRINT: PRINT "DO YOU NEED TYPESETTING OR IS THE COPY CAMERA READY?* 

4210 PRINT * (1) TYPESETTING NEEDED* 

4220 PRINT " (2) CAMERA READY COPY * 

4230 INPUT D 

4240 IF D«2 THEN D-0 

4250 IF D-l THEN D-5 

4 26 0" C-2*(7»M)*(6.52*M) + ((EM0)"M)*D 

4270 C-INT( (C*.005)M00)/100 

4280 CLS:PRINT#515,"THE COST OF PRINTING YOUR ENVELOPES WILL BE S* ;C 

4290 GOTO 930 

4500 REM "*• BUSINESS CARD ROUTINE »•» 

4510 CLS 

4520 PRINT " BUSINESS CARDS * 

4530 PRINT " WE HAVE A WIDE SELECTION OF BUSINESS CARDS STARTING AT" 

4540 PRINT " S 8.90 FOR 500" 

4550 PRINT " OR $10.90 FOR 1000" 

4560 PRINT "OUR STANDARD LINE COSTS S13.90 PER 1000 WITH THE ADDITIONAL" 

4570 PRINT "CHARGES FOR THE FOLLOWING*" 

4680 FOR X'l TO 1000:NEXT X 

4690 PRINT 

4700 PRINT " ART WORK CUTS $2.00" 

4710 PRINT " PHOTOGRAPHS 10.00" 

4720 PRINT " PRINTING ON BACK SIDE 18.00* 

4730 PRINT " SCREENS PER SCREEN 5.00* 

4740 PRINT " BLEED-OFFS PER SIDE.. 5.00* 

4750 PRINT " CLOSE REGISTRATION OF COLOR 10.00* 

4760 PRINT " CAMERA REDUCTIONS 4.50" 

4770 PRINT " VERTICAL LAYOUT 2.00" 

477 5 FOR X-l TO 5000: NEXT X 

4780 PRINT:PRINT "PLEASE ASK TO SEE OUR SAMPLE BOOKS AND ASK SOMEONE" 

4790 PRINT " FOR ASSISTANCE.* 

4800 GOTO 930 

5000 REM *** CARBONLESS BUSINESS FORMS •** 

5010 CLS 

5020 PRINT "HOW MANY FINISHED SETS DO YOU NEED?* 

5030 INPUT F 

5040 PRINT: PRINT "HOW MANY PARTS TO THE FORM?" 

5050 PRINT " (1) TWO PART FORM" 

5060 PRINT * (2) THREE PART FORM" 

507 PRINT " (3) FOUR PART FORM" 

5080 PRINT " (4) FIVE PART FORM" 

5090 INPUT P: P-P+l 

5100 PRINT "DO YOC WANT PRINTING ON ONE SIDE OR TWO?" 

5110 PRINT * (1) ONE SIDE* 

5120 PRINT * (2) TWO0SIDES* 

5130 INPUT s:W-S*2 

5140 PRINT: PRINT "WHAT IS TfcE FINISHED SIZE OF THE FORM?* 

5150 PRINT " (1) 4 1/2X5 1/2* 

5160 PRINT * (2) 5 1/2 X 8 1/2* 

5170 PRINT * (3) 8 1/2 X 11 * 

5180 PRINT * («) OTHER...* 

5190 INPUT D 

5200 IF D-l THEN E-4 

5210 IF D-2 THEN E-2 

5220 IF D>3 THEN E-l 

5230 IF D-4 THEN 1000 

5240 N-((F*P)/E)/1000 

5250 C-W+((PA*N)*S)+(21.52*N) 

5255 C«INT((C*.005)*100)/100 

5260 CLS:PRINT0515,"THE COST OF PRINTING YOUR CARBONLESS FORMS IS $"iC 

5270 GOTO 930 



program totals the amount based upon the 
number of copies handled and prints them in 
line 860. 

Lines 830 through 920 display the total 
breakdown for printing and binding, including 
sales taxes. Line 880 adds 5 per cent sales tax 
and should be altered depending upon your 



state. 

The routine for pricing envelopes follows the 
same format, while the business card routine 
displays basic prices suggested by (specialty) 
printing houses and suggests that the customer 
review the business card sample book — a most 
difficult task for a computer. 



The routine that handles pricing for carbon- 
less forms has been helpful in avoiding bidding 
errors. Carbonless business forms vary from 
two to five copies each. Thus, an order for 500 
sets of a four-part form, really requires 2,000 
impressions instead of 500. Often, the forms 
are run two-up and later cut apart. This means 
that the 500 sets of a four-part form, run 8 1 /: x 
1 1 but then cut to 5 '/: x 8 Vi , only require 1 ,000 
impressions. You can see how easily a job 
might be over or under estimated. 

The computer routine handles all factors and 
has won us business when our competitors were 
confused and erred in putting their bids to- 
gether. 

After gathering all of the necessary informa- 
tion, the real number of copies needed (N) is 
determined by taking the total number of sets 
needed (F in Line 5030) times the number of 
parts to the form (P in Line 5090). Divide that 
number according to whether one, two or four 
forms will be run in the original (E in Lines 
5200-5220) and convert it into thousands or a 
fraction thereof in Line 5240. 

Line 5250 determines the cost (C) as the cost 
of the plate (W — adjusted in Line 5130 for one 
side or two), plus the press run (PR) times N, 
multiplied by the number of sides to be primed 
(S). Then add the cost of the carbonless stock 
times N, the number of copies. 

Conclusion 

This program allows the computer hobbyist 
to provide consultant services to local printers. 
While our own program has been greatly ex- 
panded to add a wider variety of paper, this 
program should be enough to get one started. 

A word of caution: we have included a line in 
our program that offers more competitive bids 
on orders of more than 10,000 copies. The price 
greatly decreases on large orders and the pro- 
gram here cannot be competitive with large 
commercial printers. The quick printer might 
also want to bid under the computer price by 
giving color stock at cost in order to secure the 
winning bid. 

How does it work in practice? 

One customer asked for 200 copies of a flyer 
and quickly added that she really needed 225 
but did not want to pay for 300. She was in- 
formed that she could enter any number into 
the TRS-80 and it would compute the price to 
the nearest fraction of a penny. She ordered 
and paid for 225 copies and said she was 
pleased she did not have to pay for 300 copies, 
"like I did down the street." 

To this same feature another businessman 
replied, "That's un-American! Our country 
was founded on waste . . . having to buy more 
than you need. You are supposed to encourage 
them to move into a category where it will be to 
their advantage to buy more than they actually 
want." 

Un-American? We don't think so. It is a fair 
pricing policy that gives us accuracy, reliability, 
speed and a lot of happy customers. ■ 
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TRS-80* OWNERS: 

• Let the computer write your "Basic" programs for you! 

• Draw pictures, animated figures, data forms! 

• Create a library of displays! 

• Produce "Commercial" grade software! 



"Trademark of Radio Shack, a Tandy Co 



Beginner 

* * * 



* Home * 
Animated programmer 




Assembly * 
Language ^ 
programmer 

* * + 
ommercial ^ * 
Software^ ^ * 
Houses 



The Magic Cursor is a Revolutionary Family of Products which 
provides a dramatic new method of reproducing drawings and 
displays that you create on your screen. It makes both simple 
displays and complex interactive data input forms. It stores a 
"Basic Program" on disk (or tape) ready for you to execute alone or 
as a subroutine. 

It is available for any level 2, 16K or larger system with tape or 
disk. An optional version is now available with output files for 
assembly language programmers. 

Be sure to pick out the system that fits your present needs and 
order it today, so you can take immediate advantage of this unique 
new product. You may upgrade your original copy by paying the 
difference and a moderate service charge. 

THE BABY CURSOR allows you to easily create screens (including 
graphics) on your video. A powerful command then generates the 
BASIC instructions to recreate the screen. For the first time, a 
program for automatic generation of video display forms. (16K 
Tape or 16K Disk) $24.95 

THE MAGIC CURSOR I additionally makes sophisticated Data 
Entry and Display easy With Magic Cursor I you define the Data 
Entry or Display fields directly on your screen. The definition 
commands generate the BASIC instructionsto implement the Data 
Entry and Display. The Magic Cursor I has commands which move, 
center and duplicate blocks of graphical or alpha/numeric 
displays You can even justify text. (16K Tape Only) $79.95 



THE MAGIC CURSOR II adds the power to write animated games 
easily in BASIC. The Magic Cursor II allows you to reload previous 
screens either from memory or from Disk. You can then modify 
them and store either the modified screen or only the changes. 
(32K Disk only) $99.95 

THE MAGIC CURSOR III will be available soon for the new Model 1 1 
Computer (32K One or more Disks) $149.95 

THE MAGIC CURSOR IV provides the features of Magic Cursor II 
but has output files for the assembly language programmer. (32K 
Disk only) $99.95 



WRITE FOR OUR COMPLETE 
SOFTWARE CATALOG! 



ORDER FROM 





«t5y 



Bigger Is Better. 

Expandable storage. Greater Versatility. 

The Vista Model II* Disk Expansion 
system provides one, two or 
three drives, and adds 
up to one-half million 
bytes of storage. . 

You say you want more disk stor- 
age, more programming versatil- 
ity ... at a reasonable price. Say no 
more. Our Vista Model II Disk Ex- 
pansion System may be just the an- 
swer for you. Choose from 1 , 2 or 3 
drives, already mounted. Each ad- 
ditional disk drive will add about 
one-half million bytes of on-line 
storage to your system. Buy only 
what you need now. As your needs 
grow, you can continue to expand 
your capacity by adding another 
drive. It's that simple. 

But the best part we've saved for 
last. The price. It's cheaper than 
Radio Shack, yet our Model II will do 
everything Radio Shack's expan- 
sion system can do. The only differ- 
ence is our Model II will keep on working long 
after most others have stopped. That's why we are justifiably 
proud of our product's high reliability. And our 120-day warranty. Actually, it's 
not hard to stand behind a product — that works — if you know what we mean. 

'Model II >s a registered trademark of Radio Shack, a Tandy Company 

COMPARE OUR INTRODUCTORY LOW PRICES 

1 -drive Expansion System $1 ,000 3-drive Expansion System $2,100 

2-drive Expansion System $1 ,550 Additional Drives Only $ 525 

NO WAITING • IMMEDIATE DELIVERY. 




NAME 



ADDRESS 
CITY 



PLEASE E) ONE; 

□ CHECK OR MONEY 
ORDER 



D CREDIT 
CARD 



D COD 



. STATE 



TELEPHONE 



OPTIONAL 

COMPANY AFFILIATION 

TITLE 



PLEASE CHARGE MY CREDIT CARD 

D MASTER CHARGE D BANK AMEWCARD VISA 

CARONO 

EXPIRATION DATE 

PRINT EXACT NAME 

OF CARD HOLDER . 



Item 



Quantity 



Price 



INTENDED APPLICATION 



SIGNATURE 



Subtotal 

Calif. Res. add 6% sales tax 

Per-Unit Shipping and Handling 

($5.00 UPS - $7.50 UPS Blue) 

Total 



222 



CALL TOLL-FREE 800-854-8017 

The Vista Computer Company 1401 Borchard Street* Santa Ana. California 92705*714/953-0523 
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More for Less 

Speed. Capacity. Price. 

The Vista V-80 mini disk system 
is 8 times faster than the 
TRS-80, 23% more 
storage capacity, and 
costs only $395. 

Compare our performance to 
Radio Shack's TRS-80* Then 
match our price with theirs. Then 
decide which one is for you. 

Features 

• Vista offers 102K bytes to 
Radio Shack's 89K. That's 13K 
more bytes per drive for Vista. 

• The V-80 operates at 12ms versus 40ms 
for TRS-80. Our drive can operate at 5ms, but 
only 50% of TRS-80 will operate at that speed; 
therefore, Vista has purposely set the access time 
at 12ms. 

• Totally compatible with all available disk operating 
systems. 

• Upgraded system. Increased storage and speed 
patch supplied at no charge by Vista. 

• Drives are interchangeable for any location from 
Drive 0— thru Drive 3. 

• Immediate Delivery. 

• 120 Day Warranty 

Prices: 

Single Drive System $395 

Two Drive System $770 

Four Drive System $1450 

•TRS-80 is a registered trademark of Radto Shack a Tandy Company 
TYPICAL CONFIGURAT ION 




I 

ORiwE 



3E 



0<SK 

M .'f 



£ 



DRIVE 
94 



U 



I 



TRS8C 

own •' 



' ooutti Miitirv 

I CONFIGURATION 
I 0O4K BYTES) 

L. — — mmm — — — 



^2 



Vista Expansion Module 

The expansion Module provides a double density modification 
to your current Radio Shack interface that allows you to format 
diskettes in either single or double density. In double density 
format, your Vista Drive increases your storage capacity up to 
204K bytes on a single 40-track drive. 

To insure the highest performance possible, without com- 
promise, we recommend that you use vista disk drives in con- 
junction with our Expansion Module* For a demonstration on 
your system call TOLL-FREE 800-854-8017 

Price $239.00 (includes all hardware and software) 

'Vista cannot guarantee Radio Shack drives to operate 100% in double 
density. 



The Vista Computer Company 1401 Borchard Street* Santa Ana, California 92705 • 714/953-0523 



Single Density Configuration (102K Bytes) 



v* Reader Service— see page 147 



80 Microcomputing, March 1980 • 27 



BUSINESS 



This program uses sophisticated financial 
techniques to analyze possible investments. 



Investment Analysis 



Leslie E. Sparks 
1014 Evergreen Dr. 
Durham, N.C. 27712 



A microcomputer can be a 
powerful tool for analyzing 
capital investments. The follow- 



ing program shows you how to 
make your computer a tool that 
is as sophisticated and reliable 
for economic analysis as those 
of any large companies. 

Of course the computer can- 
not make your decisions for you, 
but it can provide you with im- 
portant information in just 
minutes that will improve your 
decisions. 



The basic criterion for this 
analysis program is Return on 
Investment (ROI). Although ROI 
is not the only factor to be con- 
sidered in evaluating invest- 
ments, ROI should strongly in- 
fluence the final decision — es- 
pecially if ROI is adjusted to in- 
clude the value of money over 
time and inflation. The Program 
Listing does both. 



Return on investment is the 
ratio of your net average annual 
cash flow to your total capital in- 
vestment. Cash flow is your 
after tax profit plus depre- 
ciation. (Some authors define 
ROI as the ratio of after tax prof- 
it to total capital investment.) 

ROI, expressed as cash flow 
divided by capital investment, is 
often called simple or engineer- 



Program Listing 



16 REM lMVESTDtHT ANALYSIS BY I . L SPARKS 

* REH WRITTEN IN TRS88 LEVEL 11 BASIC 27 AUG 1979 

38 REM WITH 16K RAH YOU CAN LOW AT R PROJECT LIFE OF ftBOUT 

48 REM 15 YEARS A LOAN LIFE OF 15 YEARS AH) 12 PAYMENT/YEAR 

58 RBI INPUT VAR1ABLES-- 

68 RE* D=DEPR£C1ABI£ BASE I, N= PROJECT LIFE 

78 REH SV =SALVFff VALUE 

88 REH L1=AN0UNT OF LOAN, 1=1NTEREST RATE 7. 

96 REH MA1FE OF LOAN YEARS, HP=NJKR OF PAYMENTS/YEAR 

188 R£H R=YEARLY REVENUE I. 0=YEARLY OPERATING COST * 

118 REH 1R=£SCLAT10N RATE FOR REVENUE 2 

128 REH 10=ESCLAT10N RATE PER YEAR FOR OPERATING COSTS 7. 

138 REH TC=TAX CREDIT FOR INVESTMENT Z(1K IS DEFAULT) 

148 REH T=HAR6INAL TAX RATE 7. (58Z IS DEFAULT) 

158 REH G =ANNUAL GNP DEFLATOR (82 ASSUMED) 

168 D1H A*(3):REH At IS A STRING FOR LABELING DEPRECIATION METHOD 

178 ftKi)="STAlGHT LINE DEPRECIATION" 

188 A$(2)=*StH OF YEARS DIGITS DEPRECIATION" 

198 Ai(3)='DECLINlNG BALANE DEPRECIATION" 

288 REH JT IS A FLAG WHICH IS =1 IF INVESTMENT TAX CREDIT IS NOT 

218 REH TAKEN IN 7 YEARS A WARNING IS PRINTED IF JT=1 

228 REH TL IS THE TOLERANCE FOR TRIAL AND ERROR SOLUTION SET AT 8 881 

238TL=8 88i 

248 REH 

258 DEF1NT J REH DEFINE ALL J VARIABLES AS INTEGERS 

268 OS 

278 JD=8 

288 JF=-6 

298 JT=8 

388 REH .ID AND JF ARE FLAGES USED TO DETERMINE DEPRECIATION METHOD 

318 PRINT" INVESTMENT ANALYSIS FOR TRS 88" 

328 PRINT'ENTER INFORMATION ASKED FOR " 

338 PR1NVPRESS <ENTER:> AFTER EMU ENTRY" 

348 PRINT-CURRENT VALUE IS SHOW IN 

358 PR1NTMF YOU WANT TO USE VALUE IN JUST PRESS <ENTER> a 

368 PRINT' IF YOU MAKE AN ERROR CONTINUE ENTERING DATA" 

378 PRINT'YOU N1LL BE GIVEN THE OPPORTUNITY TO CORRECT DATA" 

388 PRINT "BEFORE CALCULATIONS BEGIN" 



398 PRINT 

488 REH SET UP DEFUALTS 

418 6=8 

428 TC=18 

438T=58 

448 PRINT'ENTER YEARLY REVENUE $ CR.")", 

458 INPUT R 

468 PRINT "ENTER YEARLY OPERATING COSTS i CO;")", 

478 INPUT 

468 PRINT "ENTER ESWLT10N RATE FOR REVENUE 7. C1R;">", 

498 INPUT 1R 

588 PRINT'ENTER ESCALATION RATE FOR COSTS 7. CIO;")"; 

518 INPUT 10 

528 PRINT'ENTER DEPRECIABLE BASE $ CD,".)", 

538 1HPUT D 

548 PRINT'ENTER SALVAGE VALUE CSV;")", 

558 INPUT SV 

568 IF SV)D PRINT"SALVAGE VALUE > DEPRECIABLE BASE" ELSE G0T0598 

578 INPUT" IS THIS CORRECT \Y* 

5E8 IF LEFTt(Y»,i)="N" GOTO 528 

598 PRINT'ENTER PROJECT LIFE YEARS. CM;')", 

688 INPUT N 

618 PRINT'ENTER AMOUNT OF LOfM t C;U;">"; 

628 INPUT LI 

638 IF L<=D THEN 668 ELSE PRINT'LOAN > DEPRECIABLE BASE" 

648 INPUT" IS THIS CORRECT ",Y$ 

658 IF LEFTJ(Y$,1)="Y" THEN 668 ELSE GOTO 628 

668 PRINT'ENTER AHNUAL INTEREST RATE Z Cl.')\ 

678 INPUT 1 

688 REH CHECK TO SEE IF 1 IS 7. 

698 IF 1>. 999999 THEN 728 

788 PRINT" INTEREST RATE SHOULD BE T 

718 GOTO 668 

728 PRINT "ENTER LIFE OF LOAN IN YEARS CH,")", 

738 INPUT NL 

748 IF ML<=N THEN GOT0798 

758 PR1NT"THE PROJECT LIFE IS LESS THAN THE LIFE OF LOAN" 

768 1HPUT» IS THIS CORRECT ";YI 
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At Last! Affordable 

WORD PROCESSING 

Made Possible by TRS-80 



NEW SCRIPSIT" 
Word Processing 

Software (or 16K 
Level II TRS-80s. 

W* Cassette* 

*99 95 Disk* 



NEW UPPER 
AND LOWER 
CASE KIT. 
Available for 
new or exist- 
ing systems. 

*99 Installed* 




EDIT, DELETE, MODIFY — 
then print it error-free, 45 
characters per second! 



M*=W_TRS-80 DAISY 
WHEEL PRINTER. 
Clean and readable 
printing, like the very 
finest electric type- 
writers. 

•2999* 



RADIO SHACK BRINGS 
YOU A COMPLETE WORD 
PROCESSING SYSTEM FOR 
TRS-80 MODEL I COMPUTERS. 

Radio Shack smashes another 
computer "cost barrier" with the 
new TRS-80 Word Processing 
System. The system includes our 
new SCRIPSIT software, Upper/ 
Lower Case Kit and Daisy Wheel 
Printer. Add it to any 16K Level II 
TRS-80, or buy a complete sys- 
tem. Once you've tried it, you may 
never want to use a typewriter 
again! 

The new SCRIPSIT software 
lets you compose letters and doc- 
uments of all types on TRS-80's 
screen in upper case, or upper 
and lower case with the new Up- 
per/Lower Case Kit. You can 
move words or entire paragraphs, 
insert, delete and edit to your 
heart's content! SCRIPSIT gives 
you automatic page numbers, 
page headings and footnotes and 
makes it easy to indent para- 
graphs, change line widths, and 
center your text horizontally or 



vertically. Advanced features in- 
clude justification, hyphenation, 
global search/replace, and vari- 
able screen width. On-going re- 
ports, form letters and text with 
print commands can be stored on 
TRS-80 cassettes or diskettes for 
use or revision at any time. 




SCRIPSIT software includes an audio 
cassette course that makes anyone a 
proficient word processing operator. 



PRINT ALL OF THE 
"ORIGINALS" YOU NEED, 
FAST AND ERROR-FREE! 

Our new WP-50 Daisy Wheel 
Printer is fast and gives you the 
same quality of the finest electric 
typewriters — carbon film ribbon 
and all! Or, if your job doesn't 
require "letter" quality, a TRS-80 



system with a dot matrix, u/lc 
printer costs even less. 

A complete TRS-80 cassette 
system with Word Processing 
Software, Upper/Lower Case Kit 
and a dot matrix printer is yours for 
just $2,046.95* Or choose a really 
deluxe system with the WP-50 
Printer and two floppy disks that 
store eight hours of 50 WPM typ- 
ing for only $5,492.95* 

Sound exciting? You bet it is! 
Visit your nearest Radio Shack 
outlet or write for details. 

•Retail puces may vary at individual stores and dealers 



Mail to: Radio Shack, Dept. CMA-450 
1300 One Tandy Center 
Fort Worth, Texas 76102 

I'd Like to Know More! 

n Send details on TRS-80 Word Processing 
and the 24-page TRS-80 Catalog #RSC-3. 

D Have a representative contact me. 
NAME 



Radio /hack 

The biggest name in little computers ^ 

A DIVISION OF TANDY CORPORATION • FORT WORTH. TEXAS 76102 



^5 



ADDRESS 

CITY 

STATE 



ZIP 



I Own/Use a TRS-80 
Model 



Yes 



No 



v* Reader Service— see page 147 
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Subroutine Loan Payment 

Age=0 

Sum =0 

Amt = Loan 

Npay = life-Npayyr 

Inrate = Inyr/Npayyr 

Val-(lnrate + 1 0)! (Npay) 

Pay = (Inrate • Val .Loan)/(Val- 1.0) 

Do while Age<Life 

Inpaid = Inrate • Amt 

Pripaid = Pay - Inpaid 

Amt = Amt - Pripaid 

Sum = Sum + Pripaid 

Age ■ Age ♦ 1 
End do 

it Sum - Amt * Then Last Pay = Pay + Sum Endif 
End subprogram 

Figure 1. Algorithm for calculating loan payment. 



ing ROI. Its virtue is that it is sim- 
ple to calculate. Its major de- 
ficiency is that simple ROI does 
not consider the timing of the 
cash flow. Thus, the simple ROI 
is the same for an investment 
that yields a cash flow of $100 a 
year for ten years and a second 
investment with zero cash flow 
for nine years and $1000 for the 
tenth year. 

I'm sure you'll agree that the 
first of these two cash flows is 
better than the second, because 
of the value of money over time. 

A dollar today can be invested 
and earn interest. Thus, a dollar 
today will be worth $1.10 next 
year if we invest it at 10 percent 
interest. For this reason, a dollar 
today is worth more than a dol- 
lar next year. (Time value of 
money should not be confused 
with inflation. Even with zero in- 
flation, a dollar today is worth 
more than a dollar next year be- 



cause we could invest today's 
dollar and earn interest.) 

To account for the time value 
of money, we must reduce, i.e. 
discount, the value of future 
year dollars by the amount that 
this year's dollars could earn. 
For example, if we can earn 10 
percent interest today, that dol- 
lar will be worth $1.10 in one 
year. Thus, it takes a cash flow 
of $1.10 next year to equal a 
cash flow of $1.00 this year. 

The investment figure that re- 
flects the time value of money is 
called Discount Cash Flow Re- 
turn On Investment (DSCF ROI). 
It can also be called interest rate 
of return, profitability index and 
investors' method. Essentially, 
DSCF ROI is the interest rate 
that reduces all future cash flow 
so that their sum equals your 
capital investment. 

The DSCF ROI can change 
the rank of your possible invest- 



778 IF LEFT*(Y$,i)=*Y" THEN 798 

788 GOTO 598 

798 PRINT'ENTER NUMBER OF LORN PAYMENTS PER YEAR CNP;')', 

888 INPUT NP 

818 PRINT'ENTER INVESTMENT Tf« CREDIT RATE (18Z ASSUHEDX';TC;")V 

m input tc 

838 IF TCM THEN 868 

848 PRINT-INVESTMENT TAX CREDIT RATE SHOULD BE IN '/.' 

858(jOT0816 

968 PRINT-ENTER INCOME TFK RATE X (9B ASSUMED) C"iL , ) , J 

878 INPUT T 

888 IF TM THEN 918 

898 PRINT'INCOHE TFK RftTE SHOULD BE IN '/,' 

988 GOTO 868 

918 PRINT'ENTER Gtf DEFLATOR 7. <,&. ASSUr£D>\6;')"; 

928 INPUT G 

938 IF G>1 THEN 968 

948 PRINT 'GNP DEFLATOR SHOULD BE IN '}.' 

958 GOTO 918 

968 REM 

978 REM END OF INPUT NOW PRINT IT AND SEE IF OK 

988 as 

998 PR1NVTHE INPUT DATA ARE AS FOLLOWS" 

1888 PRINT "YEARLY REVENUE J";R 

1818 PRINVYERRLY OPERATING COSTS *";0 

1828 PRINT'ESCALATION RATE FOR REVENUE \ IR; T 

1838 PRINT-ESCHLATION RATE FOR COSTS \ 10; "/.' 

1848 PRINT-DEPRECIABLE BASE »';D 

1858 PRINT "PROJECT LIFE '. N; ' YEARS' 

1868 PRINT-AMOUNT OF LORN I"; LI 

1878 PRINT-ANNUAL INTEREST RATE "i 1; T 

1888 PRINT -LIFE OF LOAN ";NL "YEARS" 

1898 PRINT'NUHBER OF PAYMENTS/YEPR VHP 

1188 PRINT-TAX CREDIT RATE MC.T 

1118 PRINT" INCOME TAX RATE "; T, "/.' 

1128 PR1NTGNP DEFLATOR "; 6; "X" 

1138 IHPUTARE THESE CORRECT YES OR NO ",Y* 

1148 IF LEFT$<Y$,i)0"N" THEN 1178 

1158 PRINT'ENTER INCORRECT DATA PRESS <ENTER:> IF VALUE IN IS OK" 

1168 GOTO 248 

1178 REM ASK FOR METHOD OF DEPRECIATION 

1188 CLS 

1198 JD=8 

1288 JF=8 

1218 jn=:- 

1228 print'you may select one of the following methods of depreciation or" 

1238 pr1nt-y0u can have the computer calcu.ate the analysis for all three" 

1248 print'of the following methods of depreciation' 

1258 print'l straight line 2. sum of years digits' 

1268 print*:-. declining balance " 

1278 print-to select a method of calculating depreciation* 



CHEAP BOOKKEEPER 



A GENERAL LEDGER SYSTEM 



See to Believe 

Sold by Sturdivant and Dunn, Inc. for Radio Shack TRS-80* 
Model I Level II 32 or 48 K systems with 2 drives and at least 

an 80 character per line printer. 

Send $1 .00 for information and sample printouts (14 pages) 
to Sturdivant and Dunn, Inc., Box 277, Conway, NH 03818. 
^ 82 Price is $175.00. 

" TRS-80 is a Trademark of Radio Shack, a Division of Tandy corporation. 
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Subroutine Declining Balance Depreciation 
Age = 
Rate = 2/Lite 
Sum=0 

BookValue - Cost 
AnDep = 
AcumDep=0 
Do while Age<Life 
Age = Age + 1 
AnDep = BookValue • Rate 
If BookValue - AnDep<Salvage 
then AcumDep = AcumDep + AnDep 
BookValue = BookValue - AnDep 
Else AnDep = BookValue - Salvage 
BookValue = Salvage 
l« Age # Life then exit End if 
End if 
End do 
End Subroutine 



Subroutine Straight Line Depredation 

Age=0 

Value = Cost - Salvage 

AcumDep = 

Do while Age<Life 

AnDep = Value/Life 

AcumDep = AcumDep + AnDep 

Age = Age + 1 
End do 
End subroutine 



Subroutine Sum of Years Digits 

Age = 

Value = Cost - Salvage 

AnDep = 

AcumDep = 

ND = Life. (Life + 1V2 

Do while AgeCLife 

AnDep = ((Life - AgeVND)- Val 
AcumDep = AcumDep + AnDep 
Age = Age + 1 

End do 

End subroutine 



Figure 2. Algorithms for depreciation 



ments from the one obtained us- 
ing simple ROI. However, the 
major disadvantage of DSCF 
ROI is that trial and error is the 
only way to calculate it. 

Before going further, I would 
like to define some terms so that 
we're all talking the same 
language. 

Inflation is the rise in the 
average level of all prices. 

Escalation is the rise in the 
price of a single commodity or 
service. Some commodities may 
escalate without inflation. 
Escalation rates vary from com- 
modity to commodity and from 
service to service. 

Current year dollars are those 
received in a specific year. The 
current year dollars for any two 
years may or may not have the 
same purchasing power. Cur- 
rent year dollars are a "rubber" 
ruler that cannot be used as an 
absolute measure of cash flow 
in different years. 

Constant dollars are current 
year dollars referenced accord- 
ing to their purchasing power to 
some base year. The base year 
used in the Program Listing is 
year zero of the investment. 
Constant dollars are the ab- 
solute ruler for measuring cash 
flow in different years. Constant 
dollars are calculated by dis- 
counting current year dollars by 
the inflation rate back to the 
base year. (Discounting current 
year dollars to account for in- 
flation should not be confused 
with discounting future year 
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cash flow to account for the 
time value of money.) 

We all know that inflation 
constantly reduces the value of 
the dollar. Inflation also has a 
major impact on the profitability 
of investments. Yet, generally, 
inflation is not considered in in- 
vestment analysis. 

To evaluate a potential invest- 
ment we should escalate the 
revenues and operating costs, 
calculate current year cash 
flow, discount the inflation rate 
of current year cash flow and 
then calculate the DSCF ROI 
from the constant dollar cash 
flow. 



Subroutine Cash Flow 

Year = 

Taxcredit = 0.1-Depbase 

Taxloss »0 

Do while YeaKLife 

Revenue = Revenue«p + Revescalation) 
Cost = Cost -(1 + Costescaiation) 
Grossprofit = Revenue - Cost - Interest - Dep 
If Grossprofit X) then 
Grossprofit = Grossprofit - Tax loss 
If GrossprofltX) then 
Tax * TaxRate • Grossprofit 
Tax = Tax - TaxCredit 
If TaxX) then TaxCredit = 
Else Tax ■ 
TaxCredit ■ - Tax 
End if 

Else Tax -0 
Taxloss x - Grossprofit 
End if 

Else Tax = 

Taxloss = Taxloss - Grossprofit 
End if 

Cashflow = Grossprofit + Dep 
Year = Year + 1 
End do 
End Subroutine 

Figure 3. Cash Flow Subroutine. 



When this is done, we can 
compare the DSCF ROI for 
various investment possibil- 
ities. 

The Program 

Now that we have established 
the criteria, let's build an 
analysis program. Our program 
should calculate simple ROI, 
DSCF ROI in current year dollars 
and DSCF ROI in constant dol- 
lars. What our program must do: 

1. Read in data. 

2. Check data for correctness. 

3. Calculate payment schedule 



for outstanding loans. 

4. Calculate yearly depreciation. 

5. Calculate revenue for each 
year, including escalation. 

6. Calculate yearly operating 
costs including escalation. 

7. Calculate yearly before tax 
profit. 

8. Calculate income tax due. 

9. Subtract tax credit if any. 

10. Calculate after tax income. 

11. Calculate current year dollar 
cash flow. 

12. Calculate constant dollar 
cash flow. 

13. Calculate simple ROI using 
current year dollars. 



1288 PRINT "ENTER THE NUMBER OF THE METHOD VOL) URKT 

PRESS <ENTER> IF YOU MFKT THE COWER TO CALCULATE hU 3" 

1298 INPUT JD 

1388 IF JD>3 THEN PR1MT" PLEASE YOU ENTERED * INCORRECT HLIBER* 1D=8 -GOTO 1236 

1318 IF JDC8 ThlH JF=1 ELSE JD=1 

1328 REM FIRST D1ICNS10N ARRAYS 

1338 REM CF<1)=CASH FlOU FOR 1TH YEAR,D<l)=DEPREClflT10N FOR 1TH YEW 

1348 REN R<1)=R£VENUE FOR ITH YEAR 0<1)=OPERATING COST FOR ITH YR 

1358 REN IP(I)=INTEREST PAID FOR ITH YEAR, TPUMftt PAID FOR ITH YR 

1368 REN TC(I)=TA*IS PAID IN ITH YE8R,P(I)=BEF0RETFK PROFIT 

1378 REN PT(I)«*FTER TAX PROFITS FOR ITH YEAR 

1388 REN RO IS THE SIMPLE ROI, Id IS DISCOUNTED (ASH FLOU ROI NOT CORRECTED FOR INFLATION 

1398 REN R2 IS THE DSCF ROI CORRECTED FOR INFLATION 

1488 IF JOl THEN 1438 

1418 DIN CFOM, 3). DOW. 3), R(N+i), 0(N+1), IPOM), TCOHL 3). POM. 3), PT0H1, 3), IN(NL«NP*1), R0(3), Ri<3>, R2<3>, JT(3) 

1428 REN NOM RH0R12E LOAN 

1438 CLS 

1448 PRINT'PLEASE WAIT IT HILL TAKE 1 TO 2 NINUTES FOR CALCOAT IONS' 

1458 REN II IS INTEREST RATE PER MONTH I /HP 

14tt I1*1/W188.8B8 REM THIS IS MONTHLY INTEREST 

1478 V=(ll+L 8B88X (NP4L) 

1488 MHW1/0M. ) 

1498 REM HON CALCULATE PAYMENT SCHEDULE 

1588 S=« 

1518 Sl«8 

1528 N3*l 

1538 S2*8 

ISM Ml 

1558 JM 
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for the TRS-60 from Micro- Mega 



uaniucoimwLiJiiT 

• Spaed up your cassette tape MNM • Pinpoint program locations on tape with an audible monitor • 
Get protection liom recording ana payback glitches resulting from ground loons • Eliminate the tedious 
plugging end unplugging of recorder cables, mxxmamm 

The Micro-Mega Cassette Control Unit dot* ell thi$ end more. You got ins tent aattft, 1 



witch. W»nl to tind the 
fcft and you'll hear it. All 



menuel control ot ffte recorder et Ihe Hick ot 
beginning or end ot e program? Flick another 
cables remain plugged in til the time 

The Micro-Mega Cassette Control Unit does a lot to improve the appear- 
ance ot your TRSSO system, too. At thown. if a in a 2'r>" a 5" boa which 
snuggles be t ween the keyboard and your recorder There i* no need to 
move the recorder, and all cables come neatly into the unit The Cassette 
Control Unit it tailored to the CTR-at recorder, but may be used with most 
other recorders as well. 




CASSt TTC CON TROL UNI T 

Add $1 00 tor pos tege end handling 



cpu mon mm 




Ever tind yourself with a blank screen wondering what your computer it up to? The Micro-Mega CPU Monitor 

can tell you. tor exempte • It your CPU it in a loop with no exit, • Whan a long tort is ne ait mj completion, 

or • It a key bounces during keyboard input. The CPU Monitor left you listen to all CSA VEt and CLOAOs 

and will help you quickly tind the correct recorder volume setting. It you hare en expansion interface, you 

will always know whether the real-time clock it on or oil because you can hear it 

The MKio-Mega CPU Monitor gives a voice to the Z-80 microprocessor in 

your TRS-eV by using AM radio circuitry to pick up the computational 

rltythmt ot the CPU. which are amplified and played through a toudapeek* 

The pKkup unit ot the CPU Monitor, thown at left m the photo, goat under 

your TRS-BO keyboard, it n connected by a 36" cable to the speaker and 

control unit, which includes an on/off volume control and an LED "power- 

on" indicator. The Monitor is powered by an AC adapter, shown at right m 

the photo. No batteries are needed and no electrical connections to your 

TRS-BO are required 

By listening to the CPU Monitor, you will soon become familiar with the "personalities" ot the programs you 

run and whether they are executing m a normal way A dramatic use ot the CPU Monitor is m the greet 

enhancement which it provides lor computer games iSea "Gaming Environment" below ) 

CPU MONITOR Ut.SO 

Add %2 00 lor postage and handling 

the owum-rcwech 

The aye-pleating Green Screen tits over the CRT ot your TRS-80 Video Display and gives you improved con 

tratt with reduced glare You gel bright, luminout green characters and graphics like those featured by very 

expensive CRT unitt 

The Green Screen it closely matched to the color and feature ot the TRS-BO 

Video Display and improves the overall appearance ot your tyttem II it et- 

tachad with adhesive strips, which do not mar your ditplay unit in any way. 

The Micro-Mega Green-Screen gnet improved video ditplay visibility lor all 

applications and is especielly effective in creeling dramatic, high impact 

displays tor computer games iSee 'Gaming Environment' below 
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THE GREEN-SCREEN. 

Add St 00 tor postage and handling 

THE ULTIMATE TAR TH£K PACKAGE 

Tiradol trivial computer games? This complete Star Trek package will provide you with endless latcmation 
and challenge. In addition to the program cassette, it includes comprehensive instructions, a pad ol 
"Voyage Log" record sheets, and a trme-standmg "Torpedo and Maneuvering Chan " 
The package is burn around me latest version ol Lance Micktus mcom 
parable Slar Tret hi a 13.000 bvte program with a host o' subtle and imag- 
inative features, which include numerous dynamic and spectacular graphic 
displays Star Trek III puts you in command ot the Enterprise cruising m a 
gaiety ol 192 quadrants tilled with uncharted hazards, including hostile 
Klingont. pulsars and black holes You have at your disposal scanners, 
various weapons and defense systems, onboard computers, and a loyal 
crew iyou will need them all to survive the Kimgons I 

Your mission is to rid the region ot Kimgons and ro locate five inhabitable planets, all wilhm 300 statdays. 
before returning to Star fuel Heedquanert where your overall effectiveness at a ttarthip commander will 
be scored High scores are possible only with careful planning end effective battle tactics The "Voyage 
Log " sheets will guide your strategy, and the "Torpedo and Meneuvermg Chart ' will grve you a vital edge m 
combat (When you engage three Klingon ships you can't afford lo miss.) 

STAR TREK PACKAGE (tor Level II. 16K only) MM 

Add St 00 lor postage and handling 

CREATE YOUR OWN SPECTACULAR 
OAAWNO EWVWOWMEWT (and mmsm E5.0O) 

The Enterprise is in Battle trim with deflector shields at lull power As her captain, you are taking her into 
corneal The battle stations siren rings in your ears and ■CONDITION RED" flashes on your monitor screen 
You call tot warp drive and key in the coordinates of the quadrant where your scanners have detected Klmg- 
on ships As you select the warp factor, you hear the reassuring clicking of your navigational gear as It ac- 
tivates the warp drive. 

Suddenly you break out ol hyparspece end your monitor displays the chilling sight ol three Klingon Battle 
Cruisers floating on your screen • Their evil shapes glow in luminout green against the black void ol Space. 
Moments later, you hoar the characteristic rasping sound of Klingon laser weapons, and. at you watch, 
high-energy beamt come knifing towerd the Enterprise in succession from each ot the Klingon ships 

You have been hit' You heat the dismal sound ot the damage control alarm as "DAMAGE TO WARP DRIVE" 
and "DAMAGE TO PHASERS'llesh on your screen. The Klingons have stopped firing' The Enterprise la 
crippled, but your best weapon is ttill intact, and it't your turn now! You key In the command lor photon 
torpedoes At your screen again displays the position ot the Klingon ships, you select a llrmg vector Irom 
your torpedo chart and key it m Wow you hear thebuuol your photon torpedoes you see II spee d ing toward 
a Klmgon Ship It strike* him dead-center ' As you watch, the Klingon Battle Cnjiaer disintegrates, accompa- 
nied by a satisfying crackling sound 

Does the aoove scenario sound 'ar taattattp 'vol at an 't s a $m»/' sample ot what vou *■'■ eioenence with 
Micro Mega s Gaming environment which cons-sn o' • '"e S'Afl TREK PACKAGE • ffte GREEN 
SCREEN and • 1 he CPU MONITOR The last paced and dynamic action reliecls the superb Star Trek m pro 
gram together with the Voyage Log and Torpedo Chart ol the Star Trek Package All ot Ihe unique 
graphic displays are greatly enhanced by the Green Screen Finally the uncanny sound rllecls are pro 
duced By (fte CPU Monitor which faithfully 0>c»s up the IOR NE' T 'oops and other CPU patterns which 
create the distinctive siren sounds mat accompanv ihe klERT and DAMAGE messages along HI .'fte 
harsher notes o' me weapons salvos Once ,ou *e medit tou won r an, *onger be satisiied with silent com 



Outer qan 



ft ffte Gaming Env 
een Screen lor nor 



Remember the 

Monitor and Ih 

ihe individual items 

GAMING ENVIRONMENT 

Add S3 SO lor postage and handling 



'eni »ou also get all ol the other eicentnt teat 
ung applications You also save Si 00 oil me ci 



es ol me CPU 
nbmed cost ol 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown tor postage and handling to price ot the item. All items shipped within 48 
hours by first class or priority mail. Virginia residents, add *•/• sales tax. 



Micro -TVtega • P.O. Box B2BS • Arington.Nfe 22206 



REM INTEREST TO NEWEST CENT 



156BN2=NL»W 

1578 IPU1)=8 

1588 J2=l 

1598 12= 1NT(11*A*188>/1« 

1688 1H(M3)=12 

1618 PP=P-I2 

1628 1P(J1)=1PU1H12 

1638S=S+PP 

1648ft=fr-PP 

1658 IF N3*N2 GOTO 1738 

1668 IF J2=12 TON GOTO 1788 

1678H3=N3+1 

1688 J2=J2+i 

1698 G0T01598 

1788 J1=J1*1 

1718 N3=N3*1 

1728 GOTO 1578 

1738 REN FINISHED 

1748 REM HON DEPRECIATE THE INVESTMENT 

1758 REN PROGRAM MILL EITHER CALCULATE DEPRECIATION ON 

1768 REM USER SPECIFIED METHOD OR FOR 

1778 REM STRAIGHT LINE. SUM OF YEARS DIGITS. DECLINING BRUME 

1788 REM AMD DOUBLE DECLINING BALANCE 

1798 REM JD IS FLAG FOR METHOD OF DEPRECIATION 

1888 REM JIM. STRAIGHT IIHL J0=2 SUM OF YEARS DIGITS 

1818 REM JD=3 DECLINING BALANCE 

1828D1=D-SV 

1838 REM CHECK TO SEE IF USER HAS SPECIFIED METHOD 

1848 IF JF=8 TON AM ELSE JN*i 

1858 ON JD GOTO 1868 ,1948 ,2838 

1868 REM DEPRECIATION FOR STRAIGHT LINE JM 

1878 FOR J6=l TO N 

It* D(J6, JD)=01/N 

1898 SD=SD+0(J6, JD) 

1988 NEXT J6 

1918 IF JFO* THEN 2178 

1928 HMD* 

1988 G0T01858 

1948 REM SUM OF YEFfS DIGITS DEPRECIATION 

1958 NMWH+1V2 

1968 FOR J6=1T0N 

1976 D(J6,JD)=UN-<Je-i>,/W»*01 

1988 ZZ=22+D(J6, JD> 

1998 NEXT Jt. 

2888 IF JF08 THEN 2178 

2818 JD=JD+1 

2828 GOTO 1858 

2838 REM NOW CALCULATE DECLINING BALANCE 

2848R1=2/N 

2858 EV=D 

2866 SD=8 REM SD IS TO ACCUMULATED DEPRECIATION 

2878 FGRJ6*1T0H 

2888 MJ&JiMSMtl 

2898 IF BY-DUt".- Jl-V'SV THEN 2138 ELSE l» K, »)«*V-5V 

2188 6V=SV 

2118 SD=SD+D(J6, JO) 

2128 GOTO 2168 

2138 BV=BV-D(J6. JD) 

2148 IF BV<= SV THEN 8V=SV 

2158 SD=SMXJ6, JD) 

2168 NEXTJ6 

2178 REM DEPRECIATION CfLOLATIONS ARE COMPLETE 

2188 IF JF=8 TON JD=1 ESE JN=1 

2198 REM HON CALCULATE TABS FROFITS AND CF6H FLOU 

2288 IR=JR/188 

2218 TC*TC/188 

2228 T=T/188 

2238 10=10/188 

2248 F0RJ1=JD TO JN 

2258 TL=« 

2268 TX«TC*0 

2278 FOR J2=1T0N 

2288 RU2>=R*ti+JR>U2 

2298 0(J2)=0»(1*1R)[J2 

2388 P02, J1)=R(J2)-0(J2)-1P(J2)-DU2. Jl) 

2318 REII F0D IN REMAINING SALVAGE VALUE IF DECLINING BALANCE 
2328 REM DEPRECIATION USED AND IF DEPRECIATED BOOK VALUE IS 
2338 REM GREflTER THAN SALVAGE VFLUE AND IF THIS IS LAST VR 
2348 IF J2=NTHENP(J2,3)=P(J2-3>*0V-SV 
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2I<58 IF P<J2,J1><=8 TC(J2Ji)=8 

2360 IF P(J2,J1K=6 TL=TL-PU2,J1» G0TCC51* 

2376 G2=P(J2,J1>-TL 

2386 IF G2<8 TL=-G2 TC02. Jl>=8 G0TCG5ie 

22% K&JD452 

24* RBI PRETAX PR01FT =PRETftX PROF IT - TfWLOSS CHKV FOMMD 

2416 TL=6 

2426 TC<J2, .U'=T*G2 

2436 REN TAKE INVESTMENT TRX CREDIT 

2446 REN CHECK TO SEE IF INVESTMENT TRX CREDIT TAKEN BEFORE 

2456 REM NUKR OF SEttS EXCEEDS 7 



IF J2>7 AND T506 ThtH JTUifel 

tc(j2.j1>»tc02j1mx 
if K'.j:,,u-:« tx=8 

IF TtmJIXB TX=-TC<J2Ji> 
IF TCU2.J1K6 TC<J£J1>=8 
PT02,J1>=PU2,J1>-TC<J2.J1) 
CF<J2,.11>=PT(J2J1)+0(J2J1) 



vm 

2476 
2486 
2496 

2916 

2516 

2526 

2538 NBCIJ2 

2546 NEXTJ1 

2550 TL= 881 

2568 REH HOU CALCULATE SIMPLE ROl 

2576 FOR J2=JHOJH 

256* RCKJ2>=8 

2991 FOR J1=1T0N 

2686 RO(J2'=RO\J2'*':f- ILJ2) 

2618 NEXT Jl 

2620 RtKJ2)=«KJ2»ArW>» 

2638 NEXT J2 

2646 REM HON CUCULATE DttF ROl THIS IS 

2656 FOR J2=JDTOJN 

2666 L=-l 

2676 B= 2 

2688 S=8 

2698 RKJ2>*<H*t.)/2 

2768 FOR J1=1T0N 

2716 S=S+tf< IL RMMttCttM -.'1 REH D1SC0UHT FACTOR 

2728 NEXT Jl 

2736 ER=^S-D)/D 

2746 IF ABS<ERX=TL THEN 2796 

2756 IF AKORK. 6661 THEN PR 1HT" FAILED TO CONVERGE ' GOT02788 

2760 IF ER>6Tr€N L=R102- ELSE H=R1<J2,' 

2778 GOTO 2688 

2768 NEXT J2 

2796 REM HOU CALUATE DtfF ROl rCCOUHTlNG FOR INFLATION 

2888G=G/188 

2816 FOR J2=JDT0JN 



TPlft Hi* ERROR (ftULATlON 



L=-l 
H=2 

S=8 

R2<J2)=(H+L.V2 

FOR J1=1T0N 

W.=tf<Ji.J2>*a*G)l-.U.R£J1 DISCOUNT CASH FLOW FOR INFLATION 
S=S*K*(l*R2U2)>l-Ji 

MDaJl 

ER=(S-0)/D 

IF ABS(ERK=TL THEN 2956 

IF im THEN L42M2) ELSE H=R2<J2^ 
IF flBSOHXttl THEN PRINT' FAILED TO CWVERGE ' G0T02958 

GOTO 2848 



2826 

2838 

2848 

2656 

2866 

2670 

2080 

2098 

2988 

2916 

2928 

2938 

2948 

2958NEXTJ2 

2966 REH HON PRINT IT OUT 

2978 REH FIRST PRINT OUT VRRIOUS ROl 

2988 as 

2998 FORJ1=JDTOJN 

3866 FRlNVSlnHE ROl FOR VAJUl)," 

3818 PRINT USING 'H MZ';RO(Jl)*186 

3826 IF JT(J1)=1 THEN PRlNT'HftRNlNG 

3836 NEXT Jl 

3848 FCRJl=.IDTOJN 

3856 PRINVDSCf ROl FOR "AXJi); ' V 

3860 PRINT USING 'M.Mr,RUJl)*i86 

3876 NEXT Jl 

3868 FOR Ji=JDTOJN 

3096 PRINT USING'DSCF ROl D1S««<TED FORM MX INFLftT ION ',G«100 

3186 PRINT 'FOR "A*01> i 

3116 PRINT USING" M MX" i R2< M >*166 

3128 NEXTJ1 

3138 INPUT 'PRESS (EHTEFO TO SEE DETAILS ".ZZ 
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TAX CREDIT NOT TftXEN IN 7 YEARS" 



This Weekend: 

STIK 

IT.... 
••to your 



That! right' Esmarks VIDIET-STtK light pen has the TRS-80 CONNECTION 
lor LEVEL I & II Your 4K to 48K TRS-80 System will come alive under your 
VIDIET-STIK within minutes of its arrival That's because there are no wires to 
solder or traces to cut You're up and running as tast as you can plug the 
interface into your system s cassette EAR-|ack. CLOAD our custom LIGHT- 
WAVE demonstration software and RUN And because the interface has a 
plug for your recorder, you won't have to unplug it again when loading your 
other software tapes The interface allows them to pass right thru whenever 
you're not using the pen Its exclusive switched tip "design means the pens 
electrically isolated from your system when it s not in use Just point & press' 
It's that simple Plug, CLOADand RUN And have we got the software for you 
to RUN with' Our demonstration tape includes a calibration program (used lo 
adjust the CRTs brightness and contrast) plus STIK-TAC-TOE. AWARI and 
TOWERS. Two challenging games and a puzzle that will keep grownups and 
children Stik'ing it to your TRS-80 for hours And there are instructions 
provided so you can begin writing your own light pen programs (lightware) 
for fun or profit (Level II) Or. |ust sit back and enioy our LIGHT-WAVE tapes 
each month Esmarks unmatched commitment to lightware can bring you up 
to five new games, puzzles, drills & educational quizes or simulations each 
month Our current LIGHT-WAVE releases are 



T 
R 

S 

8 
O 



LIGHT-PAK2 — LIGHTPEG (4 peg-|ump puzzles) 
ENORUN (Othello with a twist ) 
LIFE9 (Conway's LIFE with mutations) 
Pnce $19 95 (including postage & handling) 
LITEGAMMON (Backgammon you'll Stik with) 
STIKWUMPUS (Caves with a little lite ) 
MAZE MASTER (Maze after maze to poke thru) 
PRICE S19.95 (including postage & handling) 



(LEVEL II) 



LIGHT-PAK 3 
(LEVEL II) 



Order yours now and we'll include a free copy of FLASHBACK. Esmarks 
newsletter dedicated to the latest news m lightware applications And. don't 
forget to tell your friends The VIDIET-STIK can also be ordered for use on 
most other micro systems using the following processor chips 



8080 



Z80 



6800 



6502 



All that's required is a standard cassette jack leading to Ground and a 
readable single bit input port. Driver software is provided along with 
instructions for writing lightware applications. And tell your local Dealer thai 
Esmarks got a Dealer package he won't want to miss out on. Delivery is 3 to 6 
weeks from receipt of your order. CO.O.'s are $3 00 extra but will be shipped 
within two weeks. All prices are FOB Mishawaka. Indiana Indiana residents 
add 4% state sales tax 



ALSO COMING FROM ESMARK 

( ] TRS-80 Printer Interface (Cassette AUX-jack interface for all RS232 
printers. Includes LLIST4 LPRINT software) 

| TRS-80 RS232 Communications Interlace (Makes your TRS-80 a full 
I/O terminal to timesharing systems the world over. Gives you 
intelligent or dumb terminal capabilities at 110 or 300 BAUD. Also 
includes Printer Interface above with 20 mA current loop & TTL level 
I/O options.) 

— TRS-80 is a trademark of the Tandy Corporation — 



* ^40 

INCORPORATED 

507 vt e. Mckinley hwy. mishawaka, in 46544 

(219) 255-3035 



$62. 



95 



'ELECTRONIC SYSTEMS MARKETING 



PLUS $1.50 
POSTAGE & 
HANDLING 
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WE MEAN BUSINESS ! 

i 1 L IS i NF SS SOFTWARE THA T IS 



TRS-80 



USE YOUR 
FOR MORE 
THAN FUN AND GAMES 



Tr£ DATA DLBBER $4935 

explicates any program tape to TRS80 quality. Recon- 
structs date pulses to ensure accurate CLOADs Permits 
easy loading of even poor quality commercial tapes with- 
out constant volume adjusting. Money-back guarantee rf 
not satisfied 



1IC ELBCTWC SECRETARY $75.00 

A powerful word processor to turn your TRS-80 into an 
automatic typewriter. Features page numbering, movable 
margins, headers, variable page length, and title Centering. 
Enter text, revise, correct, and output to printer page for 
malted, justified, even hyphenated as required. Cross 
coupling files permits individually addressed form letters. 
Complete with upper/lower case conversion information 
on diskette Specify if RS-232 adapter is installed in 
interface 

MAILROOM PUS $75.00 

A versatile and powerful mailing program to pnnt labels 
by sequential coding: zip. city, state, customer ID code, 
even last name. Sorts by any code m minutes and stores 
sequentially in a single string (approx. 1500 records per 
diskette). Includes AUTOPRINT Supplied on diskette 

MIM1MAIL $50.00 

A compaci version of f*VMLROO/*\ PLUS but without 
customer coding Features alpha tookahead lor dupii 
cates Supplied on diskette 

FORMLET * 35.00 

Generates form letters from MINIMAIL records Prepare 
your letter bulletin, notice advertisement, etc . then load 
the MINWAIL files Your printer will pnnt the inside 
address, letter and repeat for each name in the file— all 
prcperrv spaced and justified Supplied on cassette 

AUTOBOOT $15.00 

Simplifies automatic BASIC program loading Irom your 
DOS Permits sequencing through your choice of DOS 
commands, selects files and memory size you specify, and 
loads or runs selected program Allows user to see direc 
tory and free space before program runs automatically 
Supplied on cassette 

SIR ECHO $10.00 

A handy program to make your printer work like an 
electric typewriter Use alone or merge with your programs 
lo make what appears on the screen echo to the printer 
Supplied on cassette 

TELEFOTI $20.00 

Wake your TRS-80 a smart terminal Communicate with 
time-share and other computers, bulletin boards, etc 
Transfer programs over the phone For disk systems with 
modem. 

UPPER/LOWER CASE COHVERSOI $20.00 

Reprint of KILOBAUD arode explaining how to modify the 
TRS80 to display both upper and lower case characters Kit 
contains stepby-step mstruclons. parts, and necessary soft- 
ware on cassette for case reversal, echo, and automatic liie 
lead routines 



User group discounts available 
Dealer inquiries invited 



•TRS-80 is a trademark o' t*e Tandy Corp 




TERMS Ctvack. money or- 
der. Visa Mastercftarge 
Washington residents add 
5 3* for tax 



THE PERIPHERAL PEOPLE 

PO. Box524, Dep't.M 
Mercer Island, WA 98040 

.--■ (206)232-4505 



3148 OS 

3158 REN HON PRINT IT OUT OM CRT 

2166 as 

3178 FC*J1=1T0N 

3188 FWJ2*J0T0JN 



as 

PRIHT'DETAILS FOR YEAR I *$Hi* FOR MHOS) 
FKINT'REVENUE"; TAB<45>; "* \ ROD 
PRIWOPERFITING COST;Tnft(45),"$"iOUl> 
PRINT" INTEREST PftID";TAB<45). '*"; 1P<J1> 
PRINT'DEPRECIATION FOR MfB(45). B t a sMJl.J2) 
PRINT'PRETHX IMCOIC". T*(45); ■*'; F'.Jl, !2> 
PRIHT'TAX PAID", THB(45); '•' • TCU1, J2) 
PRIHTff TERTRX INCOME", TAW 45). ■*". PKJ1, J2> 
PRINTCURREHT YEAR DOLLARS CASH FLOW ";THB(45);"»",CF<J1, J2) 
PRINT'DISCOUHTED CASH FLOM ■;TnS(45);"*"iCF(Jl. J2)*<1*R1U2))[-J1 
CC=0OL J2>+CPT(J1, J2>*(i*G)l-Ji> 

PRIHT'CASH FUH IN CONSTANT $ WITH "; 6*166, "Z INRJAIONMABUS), '*",& 
PRINT'HSCUWTED CONSTANT KJLLAR CASH FL0HMHB<45),"P,tt*(l+R2<J2)>l-Jl 
1HPUTPRESS <ENTEK> TO SEE MORE MX) 



3196 
3208 

3218 

3228 

3238 

3248 

3258 

3260 

3278 

3286 

3238 

3388 

3318 

3328 

3338 

3348 NEXT J2 

3358 NEXT Jl 

3368 1NFUTD0 YOU HANT HARD COPY "; Yi 

3378 IF LEFT*(Y*»1)="Y" THEN 3486 RSE INPUT "DO YOU NAMT TO CHANGE INPUT"; Y» 

3388 IF l£FT$<Y!.l>"ir THEN STOP ELSE J6»l 

3398 GOTO 238 

3468 REN HARD COPY OUTPUT OF EVERYTHING 

3418 POKE 16424^48 

3426 POKE 16425.0 

3438 LPRINT TAB<26>; "INPUT DATA " 

3448 LPRINT 

3458 LPRlNT'YEfflY REVENUE ";TA6<45);"*",R 

3468 LPRINT'YEARLY OPERATING COST ";TH&(45>;"$";0 

3476 LPRJNT'ESCafiTlON FOR !t»Er«%TABX45);]R*186;"Z" 

3468 LPRINT'ESCALATION FOR COSTS"; TfiG<45), 10*486; "Z' 

3498 LPRINT'DEPRECIABLE BASE ";TPB(45);"*";D 

3568 LPRINT'SfLVflGE VALUE ";TAB<45),"$";SV 

3518 LPRINTHMOUHT Of LOW ";TAB<45>;*i".Ll 

3528 LPRINT'ANNUAL INTEREST RATE ";TflB<45);I;V 

3536 LPRINT'LIFE OF LOflH"; Tft&(45>; NL> "SW 

3548 LPRlNT'rMKR OF PfMENTS^";THB(45);NP 

3558 LPRINT'PRGJECT LIFE ";TAB<45);N 

3568 LPRINT' INVESTMENT TAX CREDIT RATE \ TAB(45); Te*188; "Z" 

3578 LPR1NT"1NC0HE TAX RflTE "; TAB<45>; T*168; "Z" 

3588 LPRINT'GNP DEFLATOR ";TAB<45);G»m"Z" 

3598 LPRINT 

3688 FOR Jl= JD TO JN 

3618 LPRINT" SIMPLE R01 FOR ";M(Jl),TftB(45),R0(.U)*166i"Z" 

3626 LPRIHT" DCCF R01 FOR ";R$(.ll);Tre(45);RlUl)*18e; , Z" 

3638 LPRINT" DttF R01 CORRECTED FCft InFLftTIQN FOR " ;A*<.J1);TAB(45),R2(J1>*166; "Z" 

3648 NEXT Jl 

3658 LPRINT CHRf(il) 

3668 ]NPUT"PR£SS ENTER FOR NEXT PAGE";XX 

3678 REM HARD COPY FOR DETAILS 

3686 FOR Jl= 1 TO N 

3698 LPRIHT "DETfllLS FOR YEAR I "Jl 

3788 LPRIHT "REVENUE , iT(«(47);R<Jl) 

3718 LPRIHT "OPERAT IHG COST", TABC47); 0( Jl) 

3726 LPRINV1NTEREST PAID"; TflB<47>; IPC Jl) 

3738 FOR J2=1T0J« 

3748 LTCINT'AHALYSIS FOR ";AIU2> 

3758 LPRINT'OEPREClhTlON *; TABC47); "♦"; Dt Jl, J2) 

3766 LPR1HVPRETAX PROFIT", TAB<47); "$"; P( Jl, J2) 

3776 LPRINT'TAX PAID"; TflB(47); "$•; "*"; TCCJl, J2) 

3788 LPRINT'AFTER TRX INCOME"; TfTB<47); "S"; PTUi, J2) 

3798 LPRINT'CURRENT YEAR CASH FLOM ";TAB<47),"*";CFULJ2) 

3888 LPRIHT'DISCCUHTED CURRENT K*1Wk CRSH FLOW"; TABC47); "i";CF(Jt J2)»<1+R1(J2)>( -Jl 

3816 Ct=« : <Jl,J2)*(l*G)[-Jl 

3831 LPR1NTC0NSTAHT DOLLflR CF6H FLCM FOR "jWefc'Z INFLATION"; THB(4?);"$".tt 

3838 LPRlNT"DlSCa]NTED CONSTANT DOLLflR CASH FLOH", THBC47), "$"; Ct*<l**2< J2)M -Jl 

3848 NEXTJ2 

3856 LPRINT CHRfdl) 

3866 INPUT'PRESS <ENTER> FOR NEXI PAGE"; 72 

3876 REM IF YOU DO NOT HPHT PAGING REMOVE THE ABOVE THO STATENETHS 

3886NEXTJ1 

3896 lHPUmO Yttl WANT TO CHANGE INPUT ";Y» 

3988 IF LEFT$(Y».1)="N" THEN STOP ELSE J6=l 
3918 GOTO 236 
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Subroutine Discounted Cash Flow ROi 

Low= - 1 
High = 2 
Tol =0.001 
Er = 1 
Do while Er>Tel 

RCM=(HK)h + Lowy2 

Sum=0 

Year = 1 

Do while YeaKLifc 

Sum = Sum + Cashflow «{1 * ROl) - Year 
End do YMr 

If ABStHigh - LowKO 001 then 
print failed to converge 
exit 
Else 

Er = (Sum - DepbaseyDepbase 
If ErX) Then Low = ROl 

Else High = ROl 
End if 
End if 

Ef A6S(er) 
End do 
End subroutine 

Figure 4. Discounted Cash Flow ROl Subroutine. 



so, what percent? Check with 
the IRS to be sure. 

13. Income tax rate: What is the 
marginal income tax rate you 
will have to pay on income de- 
rived from this investment? 

14. Gross National Product 
(GNP) Deflator: What is your 
estimate of the average yearly 
inflation rate during the life of 
the project (8 percent is the de- 
fault)? 

Spend some time making 
sure the estimates are as ac- 
curate as you can make them, 



the accuracy of the program 
depends on them. 

Running the Program 

Once you have assembled the 
required information, load the 
program into your computer. 

You will be asked to enter 
each of the items discussed 
above. Don't worry if you make a 
mistake. Keep on going. After 
you've entered all the informa- 
tion it will be displayed on the 
CRT. 

You will be asked "Are these 



14. Calculate DSCF ROl using 
current year dollars. 

15. Calculate DSCF ROl using 
constant year dollars. 

16. Print the results. 

Each of these 16 steps is a 
module in the program. Most of 
them can be understood from 
the program listing and the re- 
marks in the listing. 

Algorithms for the major 
modules are shown in Figures 1 
through 4. These algorithms 
combined with the TRS-80 Level 
II BASIC listing should enable 
you to translate the program to 
any language that your micro- 
computer understands. 

Data Requirements 

Before you run the program, 
you'll need the following infor- 
mation: 

1. Annual revenue: What is your 
best estimate of the gross an- 
nual revenue that the invest- 
ment will earn? 

2. Annual operating cost: What 
is your best estimate of the total 
operating cost, excluding in- 
terest and depreciation, re- 
quired by the investment? 

3. Escalation rate of revenue: 
How much do you expect rev- 
enue to increase each year, in 
percent? 

4. Escalation rate of costs: What 
percent do you estimate costs 
will increase per year? 

5. Depreciable base: What is the 
cost of the investment less non- 
depreciable items such as land? 

6. Salvage value: How much is 



the depreciable base worth at 
the end of the project life? 

7. Project life: How long will you 
keep the investment? This 
figure is also used for the depre- 
ciation time. 

8. Amount of loan: How much 
money do you have to borrow to 
finance the investment? 

9. Annual interest rate 

10. Life of loan 

11. Number of payments per 
year 

12. Investment tax credit: Can 
you take an investment tax 
credit for this investment and, if 



Sample Problem 



ltfVT MIR 
YEARLY REVENUE 
VEMLV OPERATING COST 
ESCALfiTlON FOR REVENUE 

escalation FOR COSTS 

DEPRECIABLE BASE 

SM.VnGEVM.lE 

MOUNT OF LOAN 

ANNUAL INTEREST RATE 

LIFE OF LOAN 

UMBER OF PAYMENTS/* 

PROJECT LIFE 

INVESTIENT TAX CSEDIT RATE 

INCOME TRX ROTE 

GNP DEFLATOR 

SIMPLE ROl FOR STR1GHT LINE DEPRECIATION 

DCCF ROl FOR STR1GMT LINE DEPRECIATION 

DCCF ROl CORRECTED FOR INFLATION FOR STR10HT LINE DEPRECIATION 13. 1592 2 

SIMPLE ROl FOR SUM. OF VEM6 DIGITS DEPRECIATION 38 2278 '/. 

DCCF ROl FOR SUN OF YEARS DIGITS DEPRECIATION 23. 4863 'I. 

DCCF ROl CORRECTED FOR INFLATION FOR SUN OF YEARS DIGITS DEPRECIRTICM 14 3311 i 

SIMPLE ROl FOR DECLINING BALANCE DEPREC1RTI0N 38. 2278 2 

DCCF ROl FOR DECLINING BMJNCE DEPRECIRTION 24 292 2 

DCCF ROl CORRECTED FOR INFLATION FOR DECLINING BALANCE DEPRECIATION 15 8635 V. 



t 

t 23888 

52 

52 

t 65888 
t 12888 

torn 

122 

5YRS 

12 

18 •;. 

582 

82 

38 2276 2 

22.2412 2 





Sample 


Listing 




DETAILS FOR VEAR 1 1 




DETAILS FOR VEAR 1 2 




REVEJUE 


52588 


REVENUE 


55125 


OPERATING COST 


24158 


OPERATING COST 


25357 5 


INTEREST PAID 


7256 75 


INTEREST PAID 


5976 55 


ANALYSIS FOR STAIGHT LINE DEPRECIRTICM 




ANALYSIS FOR STR1GHT LINE DEPRECIRTICM 




DEPRECIATION 


1 757143 


DEPRECIRTICM 


» 7571 43 


PRETAX PROFIT 


♦ 13521.8 


PRETAX PROFIT 


f 16214 5 


TRX PAID 


«» 268 912 


TAX PAID 


$» 8189 76 


AFTERTAX INCOME 


* 13268 9 


AFTER TAX INCOME 


t 8119 76 


CURRENT VEAR CASH FLON 


128832 3 


CURRENT YEAR CASH FLON 


* 15681 2 


DISCOUNTED CURRENT DOLLAR CASH FLON 


* 17842 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 18494 1 


CONSTANT DOLLAR CASH FLOU FOR 8 2 INFLATION 


f 19289 2 


CONSTANT DOLLAR CASH FLOU FOR 8 2 INFLATION 


8 13444 1 


DISCOUNTED CONSTANT DOLLAR CASH FLON 


$ 17846 1 


DISCOUNTED CONSTANT DOLLAR CASH FLON 


♦ 18499 1 


ANALYSIS FOR SUN OF VEARS DIGITS DEPRECIATION 




ANALYSIS FOR SUN OF VEARS DIGITS DEPRECIATION 




DEPRECIRTION 


* 13258 


DEPRECIATION 


♦ 11357 1 


PRETAX PROFIT 


17843 25 


PRETAX PROFIT 


t 12433 8 


TRX PAID 


I» 8 


TAX PAID 


1* 3638 53 


AFTER TRX INCOME 


* 7842 25 


AFTER TAX INCOME 


* 8755 28 


CURRENT VEAR CASH FLON 


* 21893 3 


CURRENT YEAR CASH aOM 


♦ 20152 4 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


* 17881 4 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


• 13215 7 


CONSTANT DOLLAR CASH FLOW FOR 8 2 INFLATION 


1 19538 8 


CONSTANT DOLLAR CASH FLON FOR 8 2 INFLATION 


« 17277 5 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


1 17862 7 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


t 13217 6 


FMM.VS1S FOR DECLINING BALANCE DEPRECIATION 




ANMYSIS FOR DECLINING BALANCE DEPRECIATION 




DEPRECIATION 


« 18571 4 


DEPRECIRTION 


* 13265 3 


PRETAX PROFIT 


* 2521 82 


PRETAX PROFIT 


* 18525 7 


TAX PAID 


MB 


TAX PAID 


$» 23 7363 


AFTER 1AX INCOME 


i 252182 


AFTER TAX INCOME 


* 18501 9 


CURRENT VEAR CASH FLOU 


i 21893 3 


CURRENT VEAR CASH FLOU 


* 23767 2 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


* 16978 7 


DISCOUNTED CURRENT DOLLAR CASH FLON 


$ 15384 8 


CONSTANT DOLLAR CASH FLOU FOR 8 2 INFLATION 


* 19538 8 


CONSTANT DOLLAR CASH FLON FOR 8 2 INFLATION 


* 2*376 6 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


» 16973 9 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


1 153916 
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'FROM THE ORIGINATOR 
OF THE TRS-80 PROJECT 





CORPORATION 

HEADQUARTERS FOR PASCAL 

And Other High Level Languages 



PASCAL COMPILER 

Pascal/MT'" is designed to run under CP/M. 
It provides an efficient development cycle 
plus efficiently executing object programs us- 
ing a highly structured language so fewer 
programming errors are made. Pascal/MT 
has extensions to standard Pascal. 

Features: 

'Compiler executes only in 32K. 
'Direct I/O manipulation. 
'Logical Functions allow bit manipulation. 
'Assembly languages interface. 
'Object programs execute ten times faster than 
P-code system. 

'Includes real time symbolic debugger. 
'Accurate 16 digit BCD business arithmetic. 

Package Includes System Diskette and In- 
struction Book (Requires CP/M) 

price $100" 

Same package (TRS-DOS version) 

price $125" 

Same package (S-100 CPM version with 8" 
diskette) price $100" 

HIGHLY RECOMMENDED PASCAL MANUALS 

"Pascal Users Manual and Report" 

Price, Manual Only $9" 



CP/M®OPERATING 



SYSTEM 



UCSD Reference Manual 

Price, Manual Only $25* 

"Problem Solving Using Pascal," the 

beginner's book for UCSD Pascal 

Price, Manual Only $14* 

"Programming in Pascal" 

Price, Manual Only $14" 

"Pascal Primer" 

Price, Manual Only $17* 



New 1.5 Version 

Includes RS-232 and I/O Byte implementa- 
tion. Editor. Assembler, Debugger and Utili- 
ties for 8080 and Z80 Systems. 

Package Includes: 

'CP/M System Diskette 5Y<" 

'CP/M Features and facilities Manual 

'CP/M Editors Manual 

'CP/M Assembler Manual 

'CP/M Debugger Manual 

'CP/M interlace Guide /Re quires 16K and \ 

PRICE $150" (one drive min. ) 

Price, set of 5 (Manuals only) $25" 

Update for 1.4 version owners, 

new disc supplied $20" 

Ne*_ 

LNNW 

Comparable to compilers on large main 
frames and minicomputers. All of ANSI stan- 
dard FORTRAN X 3.9-1966 is included except 
COMPLEX data type. Therefore, users may 
take advantage of the many applications pro- 
grams already written in FORTRAN. 
Features: 
' FORTRAN Compiler 

• Macro Assembler (280) 

• Linker 
■ Library 

• Lib Manager (Not in TRS-DOS version) 



FORTRAN .^p e 



FORTRAN, TRS-CP/M version price. 
FORTRAN, TRS-DOS version price 



$200" 
$150" 



W* 



ptxcft 



TEXTWRITER II 

Exclusively from FMG UJ* 1 ® 1 

A text formatting program that prints files cre- 
ated by an editing program. Contracts, per- 
sonalized form letters and other documents 
can be printed from a stored library of stan- 
dard paragraphs. 

Price $75" 

Price (Manual only) $25" 

TEXTWRITER III 

All features of Textwriter II plus ability to com- 
puter create Indexes and Table of Contents. 
Price $125" 



Price for each (Manual only) $25" 

TRS-80 COMMUNICATOR 

New RS232 Communication Program that 
allows your TRS-80 to transmit or receive 
programs and data files. Also makes the TRS- 
80 into a remote terminal. Requires Radio 
Shack RS232. 

TRS-CP/M version $25" 

TRS-DOS version $35" 




CORPORATION 

(817) 294-2510 
P.O. Box16363(80)- Fort Worth,Texas76133 
High Level Languages for the TRS-80 
BASIC • FORTRAN • COBOL • PASCAL 

CPM is a registered trademark of Digital Research Corp • TRS-80 is a registered trademark ot Radio Shack 



TRS-COBOL-80 

FMG's Microsoft COBOL brings the world's 
most widely used computer programming 
language to the TRS-80 user. FMG C0BOL-80 
is comparable to COBOL systems found on 
minicomputers and large mainframes. Conse- 
quently, it greatly enhances the usefulness of 
microcomputers because it gives users ac- 
cess to the incredibly large numbers of pro- 
grams already written in COBOL. Because 
COBOL-80 is a standard, COBOL programs 
written on other computers may be run easily 
on the TRS-80. 

FMG TRS-COBOL-80 is based on the 1974 
ANSI standard. It combines all Level 1 fea- 
tures and the most useful Level 2 options for 
the "Nucleus" and for sequential Relative and 
Indexing file handling facilities. 

The FMG TRS-COBOL-80 system includes a 
compiler for translating source code into re- 
locatable object code (which, incidentally, is 
compatible with the object code of our FOR- 
TRAN-80 compiler and MACRO-80 assem- 
bler), and a routine system for running the 
program by interpreting the object code at 
execution time. It also includes screen han- 
dling capabilities for easy use of interaction. 

Requires 48K. CP/M and 2 Mini Disk Drives. 

Price $750" 

UCSD PASCAL 

The powerful, general purpose language sys- 
tem, originally developed for large, complex 
system, is now available from FMG for your 
TRS-80. This new FMG/UCSD Pascal System 
greatly increases the value and capability of 
the TRS-80. 

Package Includes: 

'Operating System 'Library 

'Screen Editor 'Pascal Compiler 

'280 Macro 'Utilities and System 
Assembler Reference Book 

/Requires 48K, \ 
Price $150" \2 drive System^ 

available without Macro Assembler, 
Linker and Library (not for compiling 

programs) price $100" 

For recommended Pascal manuals, refer 
to "PASCAL COMPILER" listing. 



••12 



H 



t^ Reader Service — see page 147 
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DETAILS FOR YEAR I 3 




PRET AX PROFIT 


$277*4.2 


REVENUE 


57881 3 


TAX PAID 


$$ 13852.1 


OPERATING COST 


26625.4 


AFTER TAX INCOME 


$13852.1 


INTEREST PAID 


4534 81 


CURRENT YEAR CASH FLOU 


$ 19536 6 


ANALYSIS FOR STHIGHT LINE DEPRECIATION 




DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 668177 


DEPRECIATION 


$ 757143 


CONSTANT DOLLAR CASH FLOU FOR 8 7. INFLATION 


$ 13292.2 


PRETAX PROFIT 


119158 4 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$ 6884 2 


TAX PAID 


t$ 9575.22 


ANALYSIS FOR DECLINING BALANCE DEPRECIATION 




AFTER TAX INCOME 


19575 22 


DEPRECIATION 


$ 4834.3 


CURRENT VEflR CASH FLON 

DISCOUNTED CURRENT DOLLAR CASH FLON 


» 17146. 7 
$9386 99 


PRETAX PROFIT 
TAX PAID 


$ 28548.4 
$$ 14274, 2 


CONSTANT DOLUS CASH FLON FOR 8 Z INFLATION 


$136116 


DISCOUNTED CONSTANT DOLLAR CASH FLON 


$ 9393 74 


flFTER TAX INCOME 


$ 14274 2 


ANALYSIS FOR SUM OF YEARS DIGITS DEPRECIATION 




CURRENT YEAR CASH FLOU 


$ 19188 5 


DEPRECIATION 


$ 9464.29 


DISCOUNTED CURRENT DOLLAR CASH FLOW 


$ 644186 


PRETAX PROFIT 


$17257.6 


CONSTANT DOLLAR CASH FLON FOR 8 Z INFLATION 


$ 13884 9 


TAX PAID 


$$8628.79 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$6447.94 


PFTER TAX INCOME 


$ 8628.79 






CURRENT YEAR COSH FLOU 


$ 188911 






DISCOUNTED CURRENT DOLLAR CASH FLON 


$9688 51 






CONSTANT DOLLAR CASH FLOU FOR 6 Z INFLATION 


$14362.9 






DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$9616.56 


DETAILS FOR YEAR 1 6 




ANFLVS1S FOR DECLINING BALANCE DEPRECIATION 




REVENUE 


67884 8 


DEPRECIATION 


$ 9475.22 


OPERATING COST 


38822 2 


PRETAX PROFIT 


$ 17246.7 


INTEREST PAID 


8 


TAX PAID 


$$8623.33 


ANALYSIS FOR STA1GHT LINE DEPRECIATION 




AFTER TAX INCOME 


$ 8623.33 


DEPRECIATION 


$ 757143 


CURRENT VEAR CASH FLOW 


$ 18898 5 


PRETAX PROFIT 


$286112 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 9425. 71 


TAX PAID 


$$ 14385. 6 


CONSTANT DOLLAR CASH FLOU FOR 8 Z INFLATION 


$ 14367 2 


AFTER TAX INCOME 


$ 14385. 6 


DISCOUNTED CONSTANT DOLLAR' CASH FLOU 


$ 9431 85 


CURRENT YEAR CASH FLOU 


$21877 






DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 6556 65 






CONSTANT DOLLAR CASH FLOU FOR 8 Z INFLATION 


$ 13786.2 






DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$6566 89 






ANALYSIS FOR SUM OF VEARS DIGITS DEPRECIATION 




DETAILS FOR VERB 1 4 




DEPRECIATION 


$3785.71 


REVENUE 


68775 3 


PRETAX PROF IT 


$ 32396.9 


OPERATING COST 


I-7956 7 


TAX PAID 

AFTER TAX INCOME 


$$ 16198. 4 
$ 16198 4 


INTEREST PAID 


2988 59 


CURRENT YEAR CASH FLOU 


$ 19984.2 


ANALYSIS FOR S1AIGHT LINE DEPRECIATION 
DEPRECIATION 




DISCOUNTED CURRENT DOLLAR CASH FLOW 


$5636 82 


$ 7571 43 


CONSTANT DOLLAR CASH FLOU FOR 8 7. INFLATION 


$12593.4 


PRETAX PROFIT 


$ 22338 7 


DISCOUNTED CONSTANT DOLLAR CASH FLON 


$ 5638. 43 


TAX PAID 


$$ 11169 4 


ANALYSIS FOR DECLINING BALANCE DEPRECIATION 




AFTER TAX INCOME 


$11169.4 


DEPRECIATION 


$ 85 7383 


CURRENT 'VEAR CASH FLOU 


$ 18748. 8 


PRETAX PROFIT 


$ 36896 9 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 8393 


TAX PAID 


$$18848.4 


CONSTANT DOLLAR CASH FLON FOR 8 7. INFLATION 


$ 13775 


AFTER TAX INCOME 


$18848.4 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$8481.85 


CURRENT YEAR CASH FLOU 


$ 18134.2 


ANALYSIS FOR SUM OF '/EARS. DIGITS DEPRECIATION 




DISCOUNTED CURRENT DOLLAR CASH FLOU 


$4918.57 


DEPRECIATION 


$ 757143 


CONSTANT DOLLAR CASH FLOU FOR 8 Z INFLATION 


$ 11427 6 


PRETAX PROFIT 


$ 22338 7 


DISCOUNTED CONSTANT DOLLAR CASH FLOW 


$4924.14 


TAX PAID 


$$ 11169. 4 






AFTER TAX INCOME 


$ 11169. 4 






CURRENT YEAR CASH FLOU 


$18748.8 






DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 8859.58 






CONSTANT DOLLAR CASH FLOU FOR 8 7. INFLATION 


$13775 


DETAILS FOR YEAR 1 7 
REVENUE 
OPERATING COST 




DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$886188 


78355.1 
32363.3 


ANALYSIS FOR DECLINING BALANCE DEPRECIATION 




DEPRECIATION 
PRETAX PROFIT 


$ 6768.81 
$ 23142.1 


INTEREST PAID 


6 


TAX PAID 


$$ 11571. 1 


ANALYSIS FOR STAIGHT LINE DEPRECIATION 




A^TER TAX INCOME 


$ 11571. 1 


DEPRECIATION 


$757143 


CURRENT YEAR CASH FLOU 


$ 18339.1 


PRETAX PROFIT 


$38426 3 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


$7684.31 


TRX PAID 


$$15210 2 


CONSTANT DOLLAR CASH FLOU FOR 8 7, INFLATION 


$ 13479 8 


AFTERTAX INCOME 


$ 15216 2 


DISCOUNTED CONSTANT DOLLAR CASH FlOU 


$ 7698 11 


CURRENT YEAR CASH FLOU 


$ 22781 6 






DISCOUNTED CURRENT DOLLAR CASH FLON 


$ 5585.47 






CONSTANT DOLLAR CASH FLOU FOR 8 Z INFLATION 


$ 13292.8 






DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$5594.86 






ANALYSIS FOR SUM OF YEARS DIGITS DEPRECIATION 








DEPRECIATION 


$1892.86 






PRETAX PROFIT 


$ 36898.9 


DETAILS FOR YEAR 1 5 




TAX PAID 


$$ 18049 4 


REVENUE 


63814.1 


AFTER 1AX INCOME 


$ 18849 4 


OPERATING COST 


29354 5 


CURRENT VEAR CASH FLON 


$ 19942 3 


INTEREST PAID 


1876 89 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 4554 52 


ANALYSIS FOR STA1GHT LINE DEPRECIATION 




CONSTANT DOLLAR CASH FLON FOR 8 Z INFLATION 


$116361 


DEPRECIATION 


$ 757143 


DISCOUNTED CONSTANT DOLLAR CASH FLON 


$ 4556 8 


PRETAX PROFIT 


$ 258113 


ANALYSIS FOR DECLINING BALANCE DEPRECIATION 




TAX PAID 


$$ 12985 6 


DEPRECIATION 


$ 8 


AFTER TAX INCOME 


$12985 6 


PRETAX PROFIT 


$ 37991.7 


CURRENT VEAR CASH FLOU 


$28477.1 


TAX PAID 


$$ 18995 9 


DISCOUNTED CURRENT DOLLAR CASH FLON 


$ 7582.84 


AFTER TAX INCOME 


$ 18995.9 


CONSTANT DOLLAR CASH FLOU FOR 8 7. INFLATION 


$ 13936.4 


CURRENT YEAR CASH FLOU 


$ 18995.9 


DISCOUNTED CONSTANT DOLLAR CASH FLOW 


$ 751184 


DISCOUNTED CURRENT DOLLAR CASH FLOU 


$ 4145. 31 


MRVHS KR 9R OF VH& WWTS DETOCW10N 




CONSTANT DOLLAR CASH FLOU FOR 8 Z INFLATION 


$ 11863.9 


DEPRECIATION 


$ 5678.57 


DISCOUNTED CONSTANT DOLLAR CASH FLOU 


$ 4156 79 



correct yes or no?" Look the 
data over carefully. If you see an 
error, answer "NO." Each of the 
items will be asked for again 
and its value displayed in paren- 
theses. If the value in paren- 
theses is correct, press ENTER. 
If it is not, enter the correct 
value. 

After you have corrected the 
data, select a depreciation 
method. If you want to use a par- 
ticular method, enter the ap- 
propriate number, otherwise 
press ENTER and the program 
will calculate all three meth- 
ods—straight line, sum of years 
digits and declining balance. 

Now wait a minute or two. 
(The longer the life of the invest- 
ment or of the loan, the longer 
the calculations take.) 

As soon as the calculations 
are completed, the simple ROI, 
the DSCF ROI in current year 
dollars, and DSCF ROI in con- 
stant year dollars for each de- 
preciation method will be dis- 
played. If you selected one 
method of depreciation, only the 
results for that method will be 
displayed. 

If you want details of the pro- 
fits, taxes, and cash flow for 
each year, press ENTER. 

After you have seen all the de- 
tails for each year, you will be 
asked if you want hard copy. If 
you answer "YES", all the input 
data and all the calculated re- 
sults will be printed. 

Closing Comments 

First some warnings: The pro- 
gram assumes that all losses 
can be written off against future 
profits and that the investment 
tax credit can be taken regard- 
less of when the profits are 
taken. 

These assumptions are not 
strictly correct. The IRS limits 
both tax loss and tax credit 
carry forward. If you need infor- 
mation on this, contact the IRS. 

Finally, as I said before, the 
numbers calculated by the pro- 
gram are only as good as the in- 
formation you provided. If you 
desire a precise answer, you 
must provide precise input. No 
matter what the computer says, 
the final decision is yours. 

Examine the sample problem. 
The results are given in the sam- 
ple listing.! 
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An Entire Family of Disk Drives for 
APPLE, TRS-80*, and S-100 Computers 



Only LOBO DRIVES offers you an entire family of 
f ulry-compatible disk drives to select from. 
Whatever computer you're using, APPLE, TRS-80. 
or S- 1 00, you can add a LOBO drive now. with the 
peace-ol-mind of knowing there's a whole family of 
drives available when you're ready to expand. 

And every drive you order comes complete with 
chassis and high reliability power supply. Each 
drive is 100% calibrated, burned-in, and 
performance tested on either an APPLE. TRS-80, 
or S-1 00 computer before it's shipped. We are so 
proud of our drives . . our quality, reliability, and 
performance, that we back-up every drive with a 
one year, 1 00% parts/labor warranty. 

400 SERIES FLOPPY DISK DRIVES 

Meet our low-cost 5 25-inch 
mini drive that records data 
in either hard or soft 
sectored format. It is 
available in single or double 

density configurations, with a total storage 

capacity of 220K bytes. 

800/801 SERIES FLOPPY DISK DRIVES 
Here is our dual 8-inch 
Floppy disk memory unit. II 
records and retrieves data 
on standard 8-inch 
diskettes to provide 800K 

bytes of data storage unformatted, or 5 1 2K bytes 



935 Carrvno Dal Sur 
Gcieia California 93017 
685-4646 

"CAN YOU REALLY AFFORD 
TO PAY LESS 7 





in IBM format per drive. It is also available with 
double-sided, double-density capabilities, for a 
maximum storage capacity of 1 6 Megabytes. 

7000 SERIES HARD DISK DRIVES 

The latest member of our 
drive family, the Series 
7000 is an 8-mch. 10 Mega- 
byte Winchester Technology, 
hard disk drive, it is fully 
hardware/software compatible and comes 
complete with disk controller. Now you can have 
the convenience, speed, reliability, and all the 
storage capacity you need. 

Call or write for the complete LOBO DRIVES story. 
Find out just how competitively priced a quality 
drive can be. 

Quantity discounts available - 
Dealer inquiries invited. 





Yes, I want to know more about LOBO Drives 
and what they can do. Send me information on: 

O TRS-80 DAPPLE □ S-100 



□ 5 1/4-w. Floppy dnvft 



O 8-in. Floppy dove 
Single sided 
Double sided 



O fr*n. Wlncnesler herd 
dUfc. 10 Mbyte drive 

O Double density 
expersioc interlace 



■mr 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 



SOFTWARE 

FOR TRS-80" 

OWNEBS 



CQMPLJTRQNICS 

MONTHLY NEWSMAGAZINE 

Practical Support For Model I & II 



| MONTHLY 

u NEWSMAGAZINE 
JJ FOR TBS-M" 
C. OWNERS 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



PROGRAMS AND ARTICLES PUBLISHED IN OUR HRST 12 ISSUES 
INCLUDE THE FOLLOWING: 

A COMPLETE INCOME TAX PROGRAM (LONG AND SHORT FORM) 

INVENTORY CONTROL 

STOCK MARKET ANALYSIS 

WORD PROCESSING PROGRAM (FOR DISK OR CASSETTE) 

LOWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 

PAYROLL (FEDERAL TAX WITHHOLDING PROGRAM) 

EXTEND 16 DIGIT ACCURACY TO TRS80'" FUNCTIONS (SUCH AS 

SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 

NEW DISK DRIVES FOR YOUR TRS^O" 

PRINTER OPTIONS AVAILABLE FOR YOUR TRS 80™ 

A HORSE SELECTION SYSTEM"'ARITHMETIC TEACHER 

COMPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 

SEQUENTIAL AND RANDOM ACCESS i 

RANDOM SAMPLING"'BAR GRAPH 

CHECKBOOK MAINTENANCE PROGRAM 

LEVEL II UPDATES"'LEVEL II INDEX 

CREDIT CARD INFORMATION STORAGE FILE 

BEGINNERS GUIDE TO MACHINE LANGUAGE AND ASSEMBLY 

LANGUAGE 

LINE RENUMBERING 

AND CASSETTE TIPS. PROGRAM HINTS. LATEST PRODUCTS 

COMING SOON (GENERAL LEDGER ACCOUNTS PAYABLE AND 

RECEIVABLE. FORTRAN 80. FINANCIAL APPLICATIONS PACKAGE. 

PROGRAMS FOR HOMEOWNERS. MERGE TWO PROGRAMS. 

STATISTICAL AND MATHEMATICAL PROGRAMS (BOTH 

ELEMENTARY AND ADVANCEDl AND 



NOTICE 

Pursuant to a consent judgement entered in the United States District Court for the District of Massachusetts, H & E 
Computronics, Inc. hereby gives notice that it is not and has never been an authorized Radio Shack dealer or outlet, 
that products or services offered for sale or sold by it are not and were not approved or warranted by Radio Shack or 
Tandy Corporation, and that only products or services purchased directly from Radio Shack or its authorized retail 
outlets carry the warranty of Radio Shack and Tandy Corporation. If you have placed an order, still outstanding, with 
H & E Computronics, Inc.. for products or services, in the belief that those products or services were manufactured, 
approved or warranted by Radio Shack or Tandy Corporation, you may cancel that order and obtain a full refund of 
any money paid or deposited, simply by writing to the address below. 



fitf* 



WORD PROCESSING PROGRAM (Cassette or Disk) 

For writing letters, text, mailing lists, etc . with each new subscriptions or renewal 

LEVEL II RAM TEST (Cassette or Disk) 

Checks random access memory to ensure that all memory locations are working properly 
DATA MANAGEMENT SYSTEM (Cassette Or Disk) -Complete file management (or your TRS-MP 



SEND FOR OUR 36 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS-80™ PROGRAMS 
AVAILABLE ON CASSETTE AND DISKETTE) $200 OR FREE WITH EACH SUBSCRIPTION OR SAMPLE ISSUE. 



•CQMPLITRaMCSf 



^9 



■oi 149 



Nnt City. M«w York 109SC 



HOUR 



24 ORDER ^fe» 
LINE ^^ 
(914) 425-1535 



ONE YEAR SUBSCRIPTION $24 

START MY SUBSCRIPTION WITH ISSUE _ 
NEW SUBSCRIPTION RENEWAL 



TWO YEAR SUBSCRIPTION $48 



SAMPLE OF LATEST ISSUE $4 



(■1 July 1978 • t7 January 1979 • 112 June 1979 • ■ IB January 1910) 



CREDIT CARD NUMBER 

SIGNATURE 

NAME 

ADDRESS 



EXP DATE 



• •• ADD S6 YEAR (CANADA. MEXICOl ADD $12 YEAR AIR MAIL OUTSIDE OF U S.A , CANADA & MEXICO ••• 

TRS-80™ IS A TRADEMARK OF TANDY CORPORATION 
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CQMPUTRQNICS 



c. 



• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-RO la a trademark of ihr Radio Shark Division of Tandy Corporation 

■k All Orders processed within 24-Hour s 
* Free Shipping within U.P.S. areas (add $3 for orders outside of the U.S.A. or U.P.S. areas). 
•k 30-Day Money Back Guarantee on all Software (less a $3 penalty for handling). 
• 10-Day Money Back Guarantee on Disk Drives and Printers PLUS 120-Days Free Service. 



INCOME TAX PACS 

TRS-90 Translations from Accountants Software 
Associates with Complete Users Manual 
INCOME TAX PAC A . . . $19.95 
Per Level II 1SK Cess s We 

• Form 1040 • Form 1040A 

• Schedule A Itemized Deductions 

• Schedule B Interest and Dividends 

• Schedule TC Tax Computations 

• Output to Video Display 
INCOME TAX PAC ■ . . . $49.95 
For Level II 1SK Cassette or 32K Disk 

• All Features of Pec A Plus 

• Output to Video or Line Printer 

• Formats Form 1040 and 1040A for Tractor Feed 
Forms 

• Schedule C Income from a Personally Owned 
Business 

• Form 2106 Employee Business Expenses 
PROFESSIONAL INCOME TAX 

PAC C . . . $99.95 
For 32K System WHh Dtafc Drive 

• All Features of Pacs A & B Plus 

• Automatic Memory Storage tor Income Tax 
Preparers 

• Instant Line Change 

• Additional Schedules and Forms 

• Formats Forms for Individual or Tractor Feed 
Printing 

BENDER'S 1990 TAX 

RETURN MANUAL . . . $29.95 
■ 400 Page Step By Step Tax Preparation Manual 

• Includes Every Tax Table and Form 

• All Forms Are Reproducible 

• Lme-By-Lme Explanation ol Each Fo-m 



• TRS-90 DISK AND OTHER MYSTERIES 
$19.95 ($22.95 after 2/1/90). Over 100 pages 
of mdespensible information for disk owners 
Learn to recover information from bad disks 
how to maxe Basic programs jnhstabie and '2 
more Chapters of neier published lips and infor- 
mation Written by H C Pennington (For all 
Disk Owners) 



FROM AOVENTURELAND INTERNATIONAL 
• ADVENTURE #1 - #7 by Scott Adams 
$14.95 each available on Cassette or Disk 



• HORSE SELECTOR II by Or Hal Davis . . . 

SS0. The TRS-80 version updated for the TRS-80 
and originally reviewed m Systems ana 



FROM APPARAT 
NEW DOS • $99.95 

35. 40 and 77 Track Versions available 



iCQMPLITOQNXCS- 



FROM RACET COMPUTES 

• REMODEL-PROLOAD • Renumbers pro- 
gram lines combines programs The only re- 
number program that will renumber the middle 
of a program Specify 16K 32K or 48K Works 
with Cassette or Disk . . . $34.95 

• GSF - Use in your Basic Programs lor Instant 
Sorting (will sort 1000 items in 9 seconds) Other 
commands include Compress and Uncompress 
Data. Duplicate Memory. Display Screen 
Controls and Fast Graphic Controls . . . $24.95 
(For Cassette or Disk, specify 16K. 32K or 48K) 

• DOSORT - All G S F commands plus special 
Multiple Disk Sorting Routines . . . 134.95 
(Specify 32K or 48K) 

• INFINITE BASIC - Adds 70 commands to 
your TRS-80 including Instant Son. Matrix 
Commands. Siring Commands. Lett and Right 
Justification. String Centering. Simultaneous 
Equations. Upper and Lower Case Reverse and 
more . . . $49.95 (For Cassette or Disk) 

• INFINITE BUSINESS (Requires Infinite Basic) - 
Eliminate Round-off error. 127- Digit Calcula- 
tion Accuracy. Inserl Mew Elements in Sorted 
Arrays. Automatic Page Headings. Footings. 
and Pagination. Multiple Precision Arithmetic 
and more . . . $29.95. (For Cassette or Disk) 

• COPSYS - Copy Machine Language 
Programs . . . $14.95 (For Cassette only) 



FROM SMALL SYSTEM SOFTWARE 

• RSM-2 Machine Language Monitor . . . $29.95 

• RSM-2D Disk Version of RSM-2 . . . $29.95 

• DCV-1 Converts Machine Language Programs 
from tape to disk . . . $9.95 

• AIR RAID - The ultimate TRS-80 game con- 
verts your TRS-80 into a real limp shooting 
gallery . . . $14.95 

• BARRICADE - A fast pong style game . . $14.95 

• CPM - $150 (for Disk only) 

• TRS-232 INTERFACE - interface with Soft- 
ware driver RS-232 printers to your 

TRS-80 . . . $49.95 

• TRS-232 FORMATTER Additional 

(optional) Software for TRS-232 owners Ads 

many printer commands to your 

TRS-80 . - . $14.95 ($9 95 with purchase of 

TRS-232 1 



MAIL PAC - For Model I or Model II Disk 
Systems only . . . $99.95. Quick-sorting full user 
control over mailing list from Qailactic Software 



MICROSOFT FORTRAN (DISK) 
SMO- NOW $150 



SARGON II 

THE CHESS CHAMP 

$29.95 



Box 149 New City, New York 10956 

36-Page Catalog $2 FREE With Any Order 

Order by Phone or Mail 

No Shipping Charge 

Add $3 for COD. 

Add $3 for all Foreign and non-U. P.S. shipments 

Add $3 for UPS. Blue Label 



FROM THE BOTTOM SHELF 

• CHECKBOOK II (for Cassette or Disk) . . 
$18.50 

• INFORMATION SYSTEM (tor Cassette or 
Disk . . . $24.50 

• SYSTEM DOCTOR (a complete diagnosis of 
your TRS-80 checks memory video, cassette 
disk ROM ana all other parts of your system) - 
for Cassette or Disk . . . $21.50 

• CHECKBOOK REGISTER ACCOUNT- 
ING SYSTEM (requires 2 disk drives) . . $49.50 

• LIBRARY 100 - 1 00 established business 
game and educational programs plus FREE Tiny 
Pilot all for . . . $49.50 

• BASIC TOOL KIT lists all variables GOTO s 
and GOSUBs in your program . . . $19.80 



SOUNDWARE Ads sound to your TRS-80 

Jusl plus it in . . .$29.95. Sample programs 

included 

TING TONG - Can be used with Soundware 

for a Sound version of pong . . . $9.95. 



DISK BUSINESS PROGRAMS 
MODEL I AND MOOEL II 
GENERAL LEDGER/CASH JOURNAL . . $99.95 
ACCOUNTS RECEIVABLE . . $99.95 
ACCOUNTS PAYABLE . . $99.95 
INVENTORY CONTROL . . $99.95 
PAYROLL . . $99.95 



VISTA V80 OISK DRIVE 

110 K OF STORAGE 

$395 

Add $29 95 for Cable 

(Free with Purchase of Two Disk Drives) 

— '0 Day Money Back Guarantee - 

8 Drives also available 



FROM HOWE SOFTWARE 

MON-3 - Machine Language Programming for 
Beginners MON-3 is a Complete 
System Monitor with Users 
Manual $39.95 

MON-4 - Disk Version of MON-3 . $49.95 



LEVEL III BASIC . . . $49.95 FROM 
MICROSOFT - Now Cassette owners can add 
Disk Commands to their TRS-80 without owning 
a Disk Drive 



BRAND NEW OLIVETTI PRINTER $2495 

Business Letter quality print. Automatic Line 
Justification (on request). Quick Printing, can 
be used as a Memory Typewriter, plugs right 
into your TRS-80 without any modification or 
software 



THE ELECTRIC PENCIL 
Cassette . . . $99.95 

Disk . . . $150.00 



• 9 



»^S 



24 

HOUR ORDER LINE 

(914) 425-1535 




v* Reader Service - see page 147 
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HOME 



Use your 80 to fight 

back. Keep your records in order. 



IRS80 



William B. McNeil, Jr. 
225 Longview Drive 
Jefferson. IN 47130 



Do you ever wonder if you are 
paying too much income 
tax? 

I do, just about every year. 

The one thing I always ques- 
tion is the deduction the tax 
tables allow for the amount I pay 
in state sales tax. I had to rely on 
the tax tables year after year 
because I thought it would be 
too much trouble to accumulate 
the necessary records to claim 
more of a deduction. 

In fact, I didn't even know if I 
could claim more than the ta- 
bles allowed. But, I thought I 
should, since it seems— espe- 
cially in the last few years— 
that I have been spending more 
money than I make to meet my 
daily needs. 

The TRS-80 Record Keeper 

Here is where my new-found 
friend, Radio Shack's TRS-80, 
came to my rescue. 

I got my TRS-80 system at the 
end of last year and started 
keeping records from the first of 
January and for each month of 
the year. I wrote my own pro- 
grams for this, first in Level I and 
then, when I upgraded, in Level II 
BASIC. 

I wrote the following program 
to keep track of the amounts of 
sales tax that my family pays 
each day. 



The government allows you to 
use actual sales tax figures, if 
you can provide proof of the 
amounts spent. 

I'll have my proof for next 
year's tax return. 

From my records I can see 
that I will be able to claim a 
substantially greater deduction 
for sales taxes than the tables 
allow. In my own case this will 
be more than double last year's 
deduction. 



My program is simple. It cre- 
ates a cassette record for each 
month of the year. A menu of 
three or four choices is the 
return point from all functions 
except End-Of-Job. 

The operator is helped 
through each step for each 
choice with a prompt, displayed 
in large character format. 
Before any tape entry is written 
to cassette the operator can 
visually verify its accuracy and 




re-type the entries if a mistake is 
noted. 

I provided a hard copy output 
for those who have printers. 

The monthly worksheets are 
updated daily, listing sales 
taxes paid. At the end of each 
month the worksheets are en- 
tered onto cassette. 

At tax time the cassette is 
printed and retained for your 
records. If your return is ques- 
tioned, you will be prepared to 
back up your figures. 

When accumulating your dai- 
ly records, don't forget that 
there are many hidden taxes 
that you can claim such as 
items purchased from a vending 
machine, or maybe the price you 
pay for gasoline and theater 
tickets. Don't forget that your 
magazine, newspaper, meals 
away from home, utilities and 
just about every penny you 
spend may have sales taxes in 
the price or added to the price. 

Check with your State Depart- 
ment of Internal Revenue to find 
out just what sales taxes may be 
Included in various purchase 
prices. 

How to Begin 

Make yourself twelve of the 
worksheets similar to the sam- 
ple I use in Fig. 1. The program 
allows six sales tax entries per 
day. A grid six by 31 is adequate. 

I use INKEYS wherever possi- 
ble to eliminate wrong entries. 
Also I use CHR$(23) to display a 
large character for easier read- 
ing. 
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Cylon • L IV 




$7 50 


Animated Hangman • I 


IV 


750 


Space Battle CS - L iv 




14 95 


Level IV Graphics CS- 


L IV 


14 95 


Typing 1 - L IV 




15 00 


Typing II - L IV 




1500 


Space Battle Disk - L IV 


19 95 


Typing 1 b II - I IV 




22.50 


Warfare 1 - TSE 




795 


Final Approach - L IV 




10 00 


Cnbbage - TSE 




7.95 


Tycoon • TSE 




7 95 


Concentration • TSE 




7.95 


Amazin Maze • TSE 




795 


Time Bomb • TSE 




495 


9 Games/Pre School • 


TSE 


995 


Slalom - TSE 




7 95 


Ten Pin - TSE 




795 


Endzone- TSE 




795 


Star Trek 3.4 • TSE 




1495 


Adventure Mission IM - 


TSE 


1495 


Dog Star • TSE 




995 


Safari • TSE 




7 95 


Treasure Hunt • TSE 




7 95 


Round the Horn - TSE 




995 


Pork Barrel - TSE 




9 95 


Kamikaze • TSE 




795 


STBOD • TSE 




7900 


Advance Personal Finance - TSE 


24.95 


Atlantic Balloon • TSE 




995 


Tarot Cards - TSE 




995 


Ham Radio • TSE 




1495 


Breakaway • TSE 




595 


X-Wing Fighter • TSE 




995 


Simple Simon • TSE 




495 


Sinkum - TSE 




495 


Educational Assistant - 


TSE 


995 


Home Financial • TSE 




995 


Math Drill • TSE 




495 


Object System • TSE 




995 


Text 80 Oisk - TSE 




5995 



Payroll Disk - TSE 

Checkers Disk - TSE 

Personal Finance - TSE 

GSF • RACT 

Remodel & Proload • RACT 

Remodel - RACT 

Dosort - RACT 

Comproc - RACT 

Infinite Basic - RACT 

Infinite Basic - RACT 

Copy System • RACT 

Autok/Qedit - DISC 

Autok/Qedit Sk • Discovery Bay 

Morse Code - Oiscovery Bay 

Win 21 • Discovery Bay 

Gomoco - Oiscovery Bay 

Level 1 - Apparat 

New Dos ■ Apparat 

New Dos + • Apparat 

KVP - L Micklus 

KVP-232 - I Micklus 

Library 100 - TBS 

Electric Pencil Cass • Shay 

Electric Pencil Disk • Shay 

Snake Eggs/SND - 80US 

Android Nim/SND • 80US 

Life Two/SND - 80US 

Bee Wary - SOUS 

Owl Tree W/S • 80 US 

Great Race W/S • 80US 

Lying Chimps • 80US 

Concentration W/S - 80US 

Scrabble W/S • 80US 

Level III Basic - Micr 

Micropoly - OF* 

Airaid - SSS 

Barricade • SSS 

RSM-2 - SSS 

RSM-2D - SSS 

DCV-1 - SSS 

Basic PI - SSS 



$5995 Sargon - Hayd. 1 9.95 

24.95 Sargon II - Hayd 2995 

9.95 Poker Pete - Qual. 9.95 

24 95 Fastgammon • Qual. 19.95 

34 95 Fastgammon Disk - Qual 19.95 

24 95 Advent Cass - Adve 14.95 

34.95 Advent 2 Cass - Adve. 14.95 

1 1 97 Advent 3 Cass • Adve 14.95 

49.95 Advent 4 Cass - Adve. 14.95 

29.95 Advent 5 Cass - Adve. 14.95 

14.95 Advent 6 Cass • Adve. 14.95 

14.95 Advent 7 Cass - Adve. 14.95 

19.95 Advent 8 Cass - Adve. 14.95 

14 95 Advent 10 Cass • Adve. 5.95 
19 00 Advent 1&2 Disk - Adve 24.95 

15 00 Advent 384 Disk • Adve. 24.95 
15 00 Advent 5.66-7 Disk • Adve 39.95 
49.00 Advent 8 Disk • Adve. 19.95 
99 00 Bowlstats • RLS 29.95 
2995 Forth Disk - Mill. 64 95 
29.95 Primmer - Mill. 15.00 
49 95 Space War • Mill. 9.95 
99 00 Starfleet Onon- Asim 19.95 

1 50.00 Invasion Onon - Asim 1 9.95 

14.95 Temple of Apsh - Asim. 24.95 

14.95 Misosys Tape U - Aero. 14 95 

14 95 Misosys Disass • Aero 19 95 

14.95 System Savers - Aero. 14.95 

9.95 Opera Theater - Aero. 9.95 

9.95 Disk Utility - Aero. 19.95 

9.95 Video Pager - Aero 9.96 

9.95 Tshort - Web 9.95 

9,95 Wordo - Micr. 14.95 

49.95 Stock Exchange - Micr 15.96 

7 50 Whereami - Micr 10.96 

SPECIAL 10 00 Othello -L IV 9.96 

SPECIAL 10 00 Invaders w/ sound - L IV 14 95 

26 95 Creature Tic-Tac-Toe 7.50 

29 95 Creature Tic-Tac-Toe w' sound 9.95 

9 95 XREF Cass - L Micklus 1995 

14 95 Renumber Cass • L Micklus 7 95 



^ 



LEVEL IV PRODUCTS, INC. -< 

32238 Schoolcraft . Livonia, Ml 48154 • 313-525-6200 outside Michigan 1-800-521 -3305 

10% Off All Software Listed 

If you don't see what you want call, find out why! We carry nothing but the BEST. We also sell TRS-80* 1 0% off 

list price. 
We ship CO.D. - Add $1.50 for shipping and handling Send 25$ for Catalog 
* Product of Tandy Corporation 



& 



f* Aeeder Stmci-M* page 147 
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I write the data to cassette 
after each day's entry, which 
uses very little memory. This 
method uses more tape than 
string manipulation. Still, a full 
year's information can be writ- 
ten to a 60 minute cassette, and 
each day's entry is capable of 
being altered in this format. 

When the program is loaded it 
asks if you have a line printer. If 
you answer yes, the menu dis- 
plays a choice of four modes of 
operation. If you answer no the 
menu displays only three. 

First, create a cassette by 
selecting choice one and follow- 
ing the instructions. 

A monthly total and a year-to- 
date total is automatically writ- 
ten to cassette as a last record 
for each month. For the first 
month entered, the totals are 
zero, but for additional months 
the carry-forward totals are read 
first, using choice two. Just read 
the last day or two of the last 
month on the tape. 

After the totals are read in, 



answer the question "is there 
another month" with no and 
then select choice one. The 
carry-forward total will be 
displayed on the TV. 

The day of the month is auto- 
matically displayed. If you have 
no entries for a particular day, 
key ENTER and the day will ad- 
vance one number. 

Enter the amounts as you 
would on an adding machine, 
i.e., don't use decimal points. 
The entered amount is dis- 
played with the decimal placed 
by the program. 

If there aren't six entries per 
day, just key ENTER and zeroes 
are entered by the program for 
those amounts. Note: The first 
amount cannot be zero or the 
day advances. 

When the six amounts are en- 
tered you have the opportunity 
to visually verify the amounts. If 
a mistake is noted, the entire 
day's amounts can be keyed 
again before any record is writ- 
ten to the cassette. 

If you answer the prompt, "Is 



Program Listing 



1000 
1010 
1020 
1013 
10*0 
1030 
1060 
1070 
1080 
1090 
1100 
1110 
1120 

U30 
1140 
11S0 
11*0 
1170 
U80 
1190 
1200 
1210 
1220 
1230 
124,0 
UM 
12*0 
1900 
1910 
1920 
1930 
19*0 
19D0 
1960 
1970 
1580 
1990 
1600 
1610 
1610 
1610 
16*0 
1690 
lb»9 
1670 
1600 
1690 
1700 
1710 
1720 
1730 

mo 

1790 

1760 



IN. *71S0* 



REM •■ILL MCNEILL, JEFFERSONVI LLE ■ 
REM •SEPTEMBER 12, 1979* 

REM *REV. 5.0* 

REM OTRS-SO LEVEL II 16K. 

GOSU6 9300 

REN •TITLE AND PRINTER SETUP* 

PRINT* 314, "THIS IS A SALES TAX TAPE ROUTINE" 

St="if«8f.ff" 

PRINT! 911, "00 YOU HAVE A LINE PRINTER" 

GOSUB 1000 

TsOl 31*6l G = 0; MOl GOSUB 9900 

PRINT TABI9) "I I S i M E N U I I I l" 

PRINTI PRINT TA6I9) "TO HR1TE TO TAPE - - - 1" 

PRINT TABI9) "TO REAO THE TAPE 2" 

PRINT TABI9) "70 END THE JOB - 3" 

IF P**"V" 60T0 11S0 

PRINTS 390, "ENTER YOUR CHOICE" 

KOTO 80*0 

PRINT TABI9I "TO PRINT THE TAPE - - *" 

PRINT* 990, "ENTER YOUR CHOICE" 

COSUB BOSO 

IF M«*"l" T»«" RECORO " 

IF IH»*"2") OR IM6a"*») T»=" PLAY « 

IF M**"*" GOTO 6000 

IF MS*«3" GOTO 3000 

IF H»*"2" GOTO 2000 

IF MBs-1" THEN 1900 

REM «TAPE MRITE ROUTINE* 

GOSUB 6000> GOSUS 9000 

T=0i G0SU8 9900 

PRINTS 39*. "TYPE IN MONTH AND YEAR" 

PRINT; PRINT 

INPUT B» 

PRINTf-1, BS 

A»H GOSUB 9909 

PRINT "OAY— "|A 

PRINT 

INPUT "AMOUNT — "|B 

IF 3*0 A*A*ll GOSUB 99001 GOTO 1980 

6*4/100! PRINTS 20B,"S"| USING SllB 

INPUT "AMOUNT — "iCl C*C/10Q1 PRINTS 

•AMOUNT — "|0l 

"AMOUNT — "IE! 

"AMOUNT — "IF! 

"AMOUNT--"! Gl 



D-0/1001 

C*E/100l 
FSF/10JI 
3*3/100: 



INPUT 

INPUT 

INPUT 

INPUT 

PRINT 

PRINT "IS THE DATA CORKECT" 

GOSUB 9000 

IP 0»«"Y" GOTO 17*0 

IF Q6a"N" THIN 1730 ELSE 1700 

GOSUB 9*101 GOSUB 99001 GOTO 19S0 

l*VT*»*C*D*i9S*6 

PRINTI-1, A,B,CiD,E,PiG 

IF IQ8a»Y"| ANO (B»0) GOTO 2190 



272, "»"l USING SS|C 

PRINTS 316, "»"l USING SStO 

PJtINTS *09,"S"I USING 5*lE 

PRINTS ***,"*"! USING S*lF 

PRINTI 328,"»"! JSING S»IG 



1770 
17S0 
1790 

1800 

laio 

1820 
1830 
18*0 

2000 
2010 
2020 
2030 
29*0 
2090 
2060 
2070 
2060 
2090 
2100 
2110 
2120 
2130 
21*0 
2190 
Z160 
2170 
21B0 
2190 
2200 
2210 
2229 
2239 
22*9 
2299 
2269 
1900 
1919 
3929 
3910 
6000 
*010 
6020 
*033 
*O*0 
*O90 
*0*0 
4070 
*0S0 
*090 
*100 
6110 
*120 
*110 
*1*0 
6190 
*1*0 
*170 
*1S0 
*190 
6200 
6210 
*220 
*230 
*2*0 
*290 
*2*0 
*270 
*2I0 
9000 
9010 
3O20 
9030 
6000 

*010 
*020 
6030 
60*9 
6099 
6060 
6070 
(.080 
•999 
6190 
6119 
6120 
6133 
61*0 
6150 
7900 
7010 
7020 
7030 
SOJO 
B010 

8020 
B039 
80*0 
8050 
•0*0 
•070 
•0<0 

• 090 
■ 103 

• 110 
9000 
9010 
9020 
9900 
9910 
9920 
9930 
9*03 
9*10 
9620 



F=0: GOTO 1920 



GOSUB 9*10 

PRINT 

PRINT "IS THIS THE LAST DAY" 

GOSUB 9000 

IP Q*s"N" A«A*ll GOSUB 99001 GOTO 19B0 

IF Q»»"Y" GOTO 18*0 

GOTO 1800 

G*Gl*Tl P*T| GOTO 1790 

REN >TAPE REAO ROUTINE* 

GOSUB 60001 GOSUB 9090 

GOSUB 9900! INPUTi-1, 6* 

PRINTS 20, •• 

PRINT 

PRINT "0AY"| TAB! 10) "AMOUNTS" 

FOR Xal TO * 

A=0! 6=01 C*9i 0*01 E*0l F*0I 6*0 

INPUTf-1, A,B,C,D,E,F,G 

IF 6=0 GOTO 21*0 

PRINT! PRINT Al TABI9) USING 5*1 BlClO 

PRINT ""I TABI9) USING S6| ElFlG 

IF X«* GOTO 7003 

NEXT 

FOR Z=l TO 1033 

GOSUB 9903 

PRINTS 320, B*i" TOTAL IS"; USING S(|F 

PRINTS **6. "THE TO-OATE TOTAL IS"! USING StlG 

PRINTI PRINT "PRESS ENTER TO CONTINUE"! GOSUS 9090 

GOSUB 9900 

PRINTS 39*, "IS THERE ANOTHER MONTH " 

GOSUB 9090 

IF IMfa"l") AN9 (Q*="N"I GOTO 1100 

IF lMia»l») AND (9S*"Y") Sl*Gl G»9l 

IF Q»*"N" GOTO 1130 

IF 0**"Y" GOTO 2929 

GOTO 2210 

REM *EN3-OF-jQB ROUTINE* 

GOSUB 9900 

PRINTS **2, "END OF JOS" 

GOTO 3030 

REM .PRINTER ROUTINE (IP PRINTER IS AVAILABLE)* 

GOSUB 9900 

PRINT "PLACE THE PRINTER ON-LINE"! PRINT! PRINT 

GOSUB *030l GOSUB 9000 

GOSUB 9900 

PRINTS 3B*. "DATA IS BEING READ FROM TAPE" 

INPUTS-1, B6 

LPRINT CHRS(12)I POKE 1**29,1 

LPRINT TABI27) B* 

LPRINT "" 

LPRINT TABI9I "0AY"| TAB127) "AMOUNTS" 

LPRINT "" 

INPUTf-1, A.B,C,0,E,P.G 

IF 6*0 GOTO *190 

IP A<10 Ya9 

IF A>9 Y«* 

LPRINT TABIYIAI USING Stl B.CO.E.F.G 

PaPEEK(l6*29) 

IF P>96 THEN *070 ELSE *120 

LPRINT "» 

LPRINT TA6(9)B6I TA6I10)" TOTAL IS". USING S8IF 

LPRINT "" 

LPRINT TABI9) "TO-DATI TOTAL IS". USING StlG 

GOSUB 9900 

PRINTS 36*. "IS THERE ANOTHER MONTH TO PRINT" 

GOSUB 9003 

IF 98a"N" CLSl GOTO 1100 

IF QS*"V" 3*0l GOTO *0*0 

GOTO *290 

REM *ALLOMS 'ENTER' ONLY* 

!»*""! ISalNKEY*! IF IS*"" GOTO 3019 

IF ASC(I*>*11 CLS ELSE 3919 

RETURN 

REM *9I SPLAY PROMPTS IN LARGE CHARACTERS* 

CLS: PRINT CHRSI23) 

IF M6*"l" GOTO oObO 

PRINT "START TAPE AT BEGINNING —OR—" 

PRINTi PRINT 

print "reao tape to end of last month" 

if ms<>"1" goto 6989 

print "td-date total 1s"| using stigl 

print! print 

print "Place rccoroer in"i t$i "mode" 

print: print 

IF N6<>"1" GOTO 61*9 

PRINT "ERASE FORWARD SLIGHTLY" 

PRINT! PRINT 

PRINT "PRESS ENTER "HEN READY" 

RETURN 

RIM *TIME DELAY FOR SCREEN DISPLAYS* 

FOR Z«l TO 1000: NEXT 

GOSUB 9900 

PRINTi GOTO 2030 

REN *ALL0ri Y OR N ONLY* 

P»a«"i PSalNKEY*! IP P*a"" GOTO 6010 

IF P*s«Y" RETURN 

IF Pt*"N" RETURN ELSE S010 

REM *ALLOX MENU CHOICES 1 OR 2 OR 3 ONLY* 

M»*INKEY*l IF MS»»" GOTO S090 

IF IM»a"3") OR (M*»"2") OR (Mt»»l») GOTO 1210 

GOTO 6090 

REM *ALLOU MENU CHOICE * ONLY* 

M6*INK|Ytl IP MSa"« GOTO 1090 

IF M*«"*" RETURN 

IF (Pta"Y") ANO (Mt<"*"| GOTO 60*9 ELSE 6969 

REM • ■IAIT FOR CHOICE FROM MENU* 

0*a""i QtaINKEY8l IF QS*"" GOTO 9910 

RETURN 

REM *SET SCREEN TO LARGE CHARACTERS* 

CLS 

PRINT CHRSI23) 

RETURN 

rem .zero ojt amount buffers* 

3-Q: CaO! 0*0! E*0l F = Q: G*0 
RETURN 
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the data correct?", with no, the 
amounts are zeroed and the 
same day is ready to be re- 
keyed. 

If you answer the prompt with 
yes, the data is written to cas- 
sette. 

The next prompt "is this the 
last day" will write the monthly 
total and to-date total to the 
cassette if you answer yes. 

The last record written to 
cassette has the first tax 
amount zeroed out. This signals 
the End of the Month choice 
two. 

The prompt asks "is there 
another month" before continu- 
ing or displaying the menu. If 
you answer yes, the next month 
is ready to be entered. 

The Cassette Read 

The menu choice two is the 
cassette read. Four amounts 
are displayed per screen layout 
before more data is read in. The 
total amounts are displayed 
when the last record is read in 
for the particular month. The 
prompt "is there another month" 



allows you to get back to the 
menu or read in another month 
from cassette. 

Menu choice three terminates 
the job. 

If you have a printer the menu 
choice four is essentially the 
same as choice two. Follow the 
prompts and make sure your 
printer is on-line. 

The TV will display 'data is be- 
ing read' as the cassette is being 
played. One month is printed per 
page for ease of reading. Stan- 
dard 8 inch by 11 inch paper is 
utilized. 

If you have a printer that uses 
narrower paper, you may have to 
modify the program from line 
4060 to line 4210 to match your 
printer requirements. 

There you have it. I hope you 
will be able to save some of your 
tax money next year. Maybe you 
can even set up a service bureau 
for others. It will take a full year 
to accumulate your amounts. 
Stick with it, as I did, and you 
should see that you may have 
been paying too much income 
tax all along.! 



ADVANCED BUSINESS 
SOFTWARE FOR THE TRS-80* 



FORECASTING 
CAPITAL INVESTMENT 
RISK ANALYSIS 



PRODUCTIVITY ANALYSIS 
FINANCIAL SIMULATION 
U.S. MACRO MODEL 



Thist programs arc essential lor business planning m today s volatile 
economic climate Two eiamplts »kich run on TRS 80 LEVEL II machines arc 
Our RISK ANALYSIS model which brings the uncertainties mho locus and 
gives you the intorrwation you need tn order to make informed business 
choices The model can be used to determine the rang* ef peeaiMe A.0.1.1 lor 
an investment the range of ceatt for a construction protect or the distribution 
of labor hours needed to complete an engineering design Several bedi-ie 
feetxet moke this oao of the easiest risk programs to ese. The only inputs 
required are the most likely, the 1 0% and 90% points for the variables of 
interest From these inputs the program e«loeja>cooHj calculates the beta 
curve parameters Variables may be added, mutupked subtracted or dnwd e d m 
the user model area This adds great flexibility to the program and allows 
great freedom m selecting the proper model Tins Monte Carlo risk model 
comes with detailed User Instructions and can be run on 32K LEVEL II TR 
80s (printer output optional i Cost of the Risk Analysis model is 
149 

Another program useful for business planning is ojr CAPITAL BUDGETING 
progran which analyses the depreciation and tai impacts for an investment 
protect Trie program allows investment and revenue streams to vary over the 
■rv.esfnent .tetint and includes 5 different deprecialion methods The 
Before and after ta< cashflow for each year is shown along with the summary 
data The summary statistics tor the CAPITAL I program includes the R 1 the 
net present value the payback period, the discount rate icost of capital) and 
the profitability tfidci The cost o< the Capital Budgeting Program is (27 

Call or write lor complete information 
APPLIED ECONOMIC ANALYSIS 
4005 locust Am, Long Beach. Ca 90807 
(213) 424- MU ^47 
'Trademark of Tandy Corp 



<ri£|l{*ft* ^ RACET computes^ HI 

*^ Unui »«.. .... ...a •• act/ .ai.i._M_ 



.'for MOD I AND MOD II" TRS-80™ 



r-.o-r Now you can sort an 85K diskette _.__ 

FAST — in less than 3 minutes* - FAST 

Perfect for your multi-diskette RANDOM file mailing lists, inven- 
tory, etc. Ideal for specialized report generation, sort, merge or 
combination. All machine language stand-alone package — 
Efficient and easy to use. No separate key files required! Physical 
records are rearranged on diskette! Supports multiple sub records 
per sector including optional sector spanning. Sorts on one or 
more fields — ascending or descending. Sort fields within records 
may be character, integer, and floating-point binary. Provides 
optional output field deletion, rearrangement, and padding. 
'Sort timings shown below are nominal times. Times will vary 
based on sort and system configurations. Nominal times based 
on Mod 1 48K 4-drive configuration, 64 byte records, and 5 sort keys. 

TYPE FILE SIZE SORT TIME TYPE FILE SIZE SORT TIME 

(BYlts) (Sec, 

340K 1081 

680K 2569 

85KSORT+ 1757 

1275K Merge 

DSM for Mod I (Minimum 32K. 2-drives) S75 On-Disk 
DSM for Mod II (Minimum 64K. 1-drive) S1S0 On-Disk" 

Mod II Development Package $100** 

Machine Language SUPERZAP. plus Editor/Assembler and 
Disassembler patches. 
Mod II Generalized Subroutine Facility *QSF $50** 

"For Mod II Programs, Include Mod II DOS diskette with order 
For Development Package, also include copy of Apparat 
NEWDOS + 5% diskette. 



SORT 


(Bytst) 
16K 


(Sec) 
33 


SORT 


SORT 


32K 


49 


SORT 


SORT 


85K 


173 


SORT and 


SORT 


170K 


445 


MERGE 



CHECK, VISA, M/C, C.O.D. 

Calif. Residents add 6% 

Telephone Orders Accepted (714) 637-5016 



oo BASIC for Level II and Disk Systems $40 J5 

Full MATRIX Functions — 30 BASIC commands!! 
Mathematical and common matrix functions. Change arrays in 
mid-program. Complete array handling. Tape array read and write, 
including strings. Common subroutine calls. 
Over 50 more STRING Functions as BASIC commands!! String 
manipulation, translation, compression, copying, search, screen 
control, pointer manipulation and utility functions. Includes 
multikey multivariate machine language sorts. Load only machine 
language functions that you want! Where you want in memory! 
Relocating linking loader! More than you ever expected!! 

oo BUSINESS (Requires Infinite BASIC) $29.95 

20 Business oriented functions including: 
Printer Automatic Pagination with headers and footers! 
Packed Decimal Arithmetic ( + ,-, *J) 127 digits! 
Binary array searches and hash code generator! 

COMPROC Command Processor for Disk Systems $19.95 
Auto your disk to perform any sequence of DOS commands, 
machine language loads, BASIC, memory size, run program, 
respond to input statements, etc. Single BASIC command file 
defines execution! Includes auto key-debounce, screen print and 
lower case software driver. 

REMODEL + PROLOAD Specify 16, 32, or 48K Mtmory $34J6 
REnumber any portion or all of BASIC program. MOve any portion 
of program from one location to another. DELete program lines, 
MERGE all or any portion from tape. Save and verify portion or 
all of combined merged programs to tape. 
GSF (Specify 16, 32, or 48K) $24.95 
18 Machine language routines. Includes RACET sorts. 

TRS-M IS * RESISTERCI TtAKMARK If TANSY CtftPMATISN 



WHEN ORDERING PI EASE 
ADVISE PUBLICATION SOURCE 



^*\ 



^ RACET computes 4| 

712 rWrndaie, O r ange CA KIM 



|X /today SfYtcm— sie ptgt 147 
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UTILITY 



With these programs you can print files 
while running another program entirely! 



SPOOL and DESPOOL 



H. S. Gentry 
Rt. 1, Box 39B 

Earlysville, VA 22936 



Simultaneous Peripheral 
Output OverLap (SPOOL) is 
a technique used by most large 
computer systems to prevent 
program delay because a slow 
peripheral, like a printer, is not 



ready. The output data is written 
(spooled) on a mass storage de- 
vice and then transferred (de- 
spooled) when the peripheral is 
ready. 

Spool 

The TRS-80 spooler system is 
divided into two major sections, 
SPOOL and DESPOOL The first 
of these sections is the output 
spooler, shown in Listing 1. 

The code in line numbers 300 
through 440 requests the file 



name and places it in the device 
control block (DCB) for the file. 
Line numbers 470 through 540 
open an existing file or create a 
new one and check for errors. If 
any error is found, an error 
message is printed and the 
spool operation is terminated. 

If the file opens without error 
then lines 560 through 590 con- 
nect the spooler to the printer 
DCB and return control to the 
operating system. 

Now, each time the operating 











Program Listing 1. 










00100 


»THIS IS THE PRINTER SPOOLER - 


HHEN LOADED 






00110 


JIT WILL INTERCEPT ALL PRINTER 


OUTPUT AND 






00120 


i STORE 


IT IN A 


256 BYTE BUFFER 


WHEN THE 






00130 


» BUFFER 


IS FULL THE DATA 


IS URITTEN TO 






00140 


>THE SPECIFIED 


FILE. THE 


SPOOL FILE MUST 






00150 


IBE CLOSED BY RUNNING THE 


SYSTEM PROGRAM 






00160 


* CLOSE. 














001T70 


1 










4467 




00180 


DISP 


EQU 


4467H 






0040 




00190 


INPUT 


EQU 


40H 






4026 




00220 


PRDD 


EQU 


4026H 






402D 




00230 


DOS 


EQU 


402DH 






442B 




00240 


CLOSE 


EQU 


4428H 






4420 




00250 


INIT 


EQU 


4420H 






443C 




00270 
00280 


WRITE 
1 


EQU 


443CH 






FEOO 




00290 




ORG 


OFEOOH 






FEOO 


21C5FE 


00300 


SETUP 


LD 


HLrNSGl 




♦LOG ON 


FE03 


CD6744 


00310 




CALL 


DISP 






FE06 


21A4FE 


00320 




LD 


HL»INBFR 






FEO? 


0620 


00330 




LD 


B»32 






FEOB 


C04000 


00340 




CALL 


INPUT 






FEOE 


78 


00350 




LD 


ArB 




>GET ACTUAL • 


FEOF 


B7 


00360 




OR 


A 







system (DOS, BASIC, etc.) at- 
tempts to print a character, the 
code in lines 650 through 930 is 
activated. The character is 
counted and stored in a 256 byte 
buffer. When this buffer is full it 
is written to the disk. This pro- 
cedure continues as long as the 
user allows it or until an error is 
detected. 

When the spool operation is 
completed you must close the 
spool file. This is necessary for 
two reasons. 

First, the data printed may 
not have ended on a 256 byte 
boundary. Thus, some data may 
be in the buffer that has not 
been written to the file. Closing 
SPOOL will detect this situa- 
tion, set the unused area of the 
buffer to zeroes and write the 
last buffer to the file. 

The second reason is that the 
system program CLOSE must 
be called to update the disk 
directory. 

The spool system performs 
both of these close operations, 
if control is transferred to label 
KLOSE (location FE76H in 
Listing 1). This may be done by 
entering DEBUG and typing 
GFE76. The memory containing 
the KLOSE program, the file 
DCB, the pointers and the 256 
byte buffer must not be changed 
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until the close operation is 
done. 

If you don't like using DEBUG 
to close your file you can create 
a close program as follows: load 
(but don't execute) the SPOOL 
program, then dump the KLOSE 
part of SPOOL to a disk file 
called CLOSE/CM D. Don't dump 
more memory than needed. Ac- 
tually, you only need an execu- 
tion (transfer) address. 

The dump command to close 
the file for the SPOOL in Pro- 
gram Listing 1 is: DUMP CLOSE/ 
CMD:0 (START = X'FE76',END 
= X'FE9D',TRA = X'FE76'). 

Now, after your spool opera- 
tion is finished, return to DOS 
and type CLOSE. The file is then 
closed and the spool operation 
terminated. You are left with an 
ASCII file containing all the 
printer output since the spool 
was started. 

Despool 

If you want to print a copy of 
the spool file the command 
PRINT could be used. However, 
this ties up the system while the 
printer is running. 

Fortunately, there is a better 
way, DSPOOL, shown in Listing 
2. This program opens the spool 
file for printing and returns to 
the operating system. 

The data in the file is then 
printed while you perform al- 
most any other job on your sys- 
tem. That's right, you can run a 
BASIC program or perform other 
disk operations while the file is 
being printed. 

There are only a few excep- 
tions: You cannot re-boot the 
system; You cannot write to the 
spool file while despooling; You 
cannot print data in the regular 
DOS manner until the despool is 
completed; You cannot spool on 
file while despooling another. 

The last restriction is in- 
cluded only because SPOOL 
and DSPOOL use the same 
memory. 

If you move one of the pro- 
grams to another location, you 
could SPOOL and DSPOOL at 
the same time, although you still 
may not write and read the same 
file at one time. You must use 
two different file names. 

DSPOOL uses two links to the 
operating system, one to the 25 
millisecond interrupt and anoth- 



FE10 28EE 


00370 




JR 


Z t SETUP 


»N0 INPUT 


FE12 EB 


00380 




EX 


DEfHL 




FE13 83 


00390 




ADD 


AfE 


JADDRESS+f 


FE14 6F 


00400 




LD 


LfA 


J LOW ADDRESS 


FE15 7A 


00410 




LD 


AtD 


»HI ADD 


FE16 CEOO 


00420 




ADC 


A»0 




FE18 67 


00430 




LD 


Ht A 


IHI ADDRESS 


FE19 3620 


00440 




LD 


(HL)t20H 


i BLANK CR 




00450 


f INBFR 


NOW HAS 


FILE SPEC WITH 


TRAILING BLANKS 




00460 


ilNIT 


THE FILE 






FE1B 21E1FE 


00470 




LD 


HLf BUFFER 


» PLACE 


FE1E UA4FE 


00480 




LD 


DEflNBFR 


fDCB 


FE21 0600 


00490 




LD 


BfO 




FE23 CD2044 


00500 




CALL 


INIT 


fOPEN IT 


FE26 2809 


00510 




JR 


ZfOK 


JZ=1 IF OK 


FE28 21D5FE 


00520 




LD 


HL.ERM 




FE2B CD6744 


00530 




CALL 


DISP 




FE2E C32D40 


00540 




JP 


DOS 


J AND GET OUT 


FE31 2A2640 


00550 


OK 


LD 


HLf (PRDD) 


fOLD DRIVER 


FE34 22A2FE 


00560 




LD 


(SAVDD) fHL 


J SAVE IT 


FE37 2140FE 


00570 




LD 


HL 'DRIVE 


{NEW DEIVER 


FE3A 222640 


00580 




LD 


( PRDD ) t HL 


IPUT IT IN 


FE3D C32D40 


00590 




JP 


DOS 


J DONE 




00600 


JFILE 


IS OPEN 


- THIS IS THE ACTUAL DRIVER 




00610 


JIT WILL STUFF 


THE CHARACTERS 


IN THE BUFFER 




00620 


»IF THE BUFFER 


IS FULL A WRITE TO THE DISK 




00630 


JWILL 


BE DONE. 








00640 


f 








FE40 E5 


00650 


DRIVE 


PUSH 


HL. 




FE41 F5 


00660 




PUSH 


AF 




FE42 2A9EFE 


00670 




LD 


HLf (PRT) 


J POINT TO BUFFER 


FE45 71 


00680 




LD 


(HL) fC 


J SAVE CHARACTER 


FE46 23 


00690 




INC 


HL 




FE47 229EFE 


00700 




LD 


(PRT)fHL 




FE4A 3AA0FE 


00710 




LD 


Af(CCNT) 


f COUNT 


FE4D FEFF 


00720 




CP 


OFFH 


»DUN 


FE4F 2807 


00730 




JR 


Z.OUT 




FES1 3C 


00740 




INC 


A 


5 COUNT IT 


FE52 32A0FE 


00750 




LD 


(CCNT) fA 


JPUT IT BACK 


FESS Fl 


00760 


POP 


POP 


AF 




FE56 El 


00770 




POP 


HL 




FE57 C9 


00780 




RET 




»G0 BACK 


FE58 C5 


00790 


OUT 


PUSH 


BC 




FE59 D5 


00800 




PUSH 


DE 




FE5A DOES 


00810 




PUSH 


IX 




FE5C FDE5 


00820 




PUSH 


IY 




FE5E 11A4FE 


00830 




LD 


DEflNBFR 


fDCB 


FE61 CD3C44 


00840 




CALL 


WRITE 




FE64 21E1FE 


00850 




LD 


HLf BUFFER 




FE67 229EFE 


00860 




LD 


(PRT) fHL 


JRESTORE POINTER 


FE6A AF 


00870 




XOR 


A 


*A«0 


FE6B 32A0FE 


00880 




LD 


(CCNT) f A 




FE6E FDE1 


00890 




POP 


IY 




FE70 DDE1 


00900 




POP 


IX 




FE72 Dl 


00910 




POP 


DE 




FE73 CI 


00920 




POP 


BC 




FE74 18DF 


00930 




JR 


POP 






00940 


5THIS 


IS THE CLOSE ROUTINE - 


CALLED BY 




00950 


fTHE CLOSE FUNCTION TO CLOSE 


OUT THE LAST 




00960 


JRECORD AND THEN CLOSE THE FILE 


FE76 3AA0FE 


00970 


KLOSE 


LD 


Af (CCNT) 


> COUNT 


FE79 B7 


00980 




OR 


A 




FE7A 2813 


00990 




JR 


ZfKLOS 


fNO DATA CLOSE FILE 




01000 


J DATA 


IN FILE 


- NULL REMMAINDER THEN WRITE AND CLOSE 


FE7C 2A9EFE 


01010 




LD 


HLf (PRT) 




FE7F 3600 


01020 


LOPC 


LD 


(HL)fO 




FE81 FEFF 


01030 




CP 


OFFH 


JDUN 


FE83 2804 


01040 




JR 


ZfWRIT 


fFULL WRIT IT 


FE85 3C 


01050 




INC 


A 




FE86 23 


01060 




INC 


HL 




FE87 18F6 


01070 




JR 


LOPC 






01080 


fTHIS 


IS THE WRIT TO THE DISK 


ROUTINE 


FE89 11A4FE 


01090 


URIT 


LD 


DE.INBFR 


fDCB 


FE8C CD3C44 


01100 




CALL 


WRITE 






OHIO 


5THIS 


IS THE CLOSE ROUTINE - 


IT WILL CLOSE THE 




01120 


JFILE 








FE8F 11A4FE 


01130 


KLOS 


LD 


DEflNBFR 


fDCB 


FE92 CD2844 


01140 




CALL 


CLOSE 




FE95 2AA2FE 


01150 




LD 


HLf (SAVDD) 




FE9B 222640 


01160 




LD 


(PRDD) fHL 


J RESTORE PRINTER 


FE9B C32D40 


01170 




JP 


DOS 


I DONE 


FE9E E1FE 


01180 


PRT 


DEFW 


BUFFER 




FEAO 0000 


01190 


CCNT 


DEFU 







FEA2 0000 


01200 


SAVDD 


DEFW 







FEA4 20 


01210 


INBFR 


DEFM 






FEC5 53 


01220 


MSG1 


DEFM 


'SPOOL FILESPEC?' 


FED4 03 


01230 




DFFB 


3 
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FEDS S3 


01240 


ERN 


DEFH 'SPOOL ERROR' 


FEEO 03 


01250 




DEFB 3 


FEE1 00 


01260 


BUFFER 


DEFB 


FEOO 




01270 




END SETUP 


OOOOO 


TOTAL 


ERRORS 






28521 


TEXT 


AREA BYTES LEFT 


BUFFER 


FEE1 


01260 


00470 


008S0 01 180 


CCNT 


FEAO 


01190 


00710 


00750 00880 00970 


CLOSE 


4428 


00240 


01140 




DISP 


4467 


00180 


00310 


00530 


DOS 


402D 


00230 


00S40 


00590 01170 


DRIVE 


FE40 


00650 


00570 




ERN 


FEDS 


01240 


00520 




INBFR 


FEA4 


01210 


00320 


00480 00830 01090 01130 


INIT 


4420 


00250 


00500 




INPUT 


0040 


00190 


00340 




KLOS 


FE8F 


01130 


00990 




KLOSE 


FE76 


00970 






LOPC 


FE7F 


01020 


01070 




MSG1 


FEC5 


01220 


00300 




OK 


FE31 


00550 


00510 




OUT 


FE58 


00790 


00730 




POP 


FE55 


00760 


00930 




PRDD 


4026 


00220 


005S0 


00580 01160 


PRT 


FE9E 


01180 


00670 


00700 00860 01010 


SAVDD 


FEA2 


01200 


00560 


01150 


SETUP 


FEOO 


00300 


00370 


01270 


WRIT 


FE8? 


01090 


01040 




WRITE 


443C 


00270 


00840 


01100 



Program Listing 2. 










00110 


» PRINTER DE-SPOOLER - WHEN 


LOADED IT CONNECTS 






00120 


»T0 THE 


25MS INTERRUPT AND 


TO THE KEYBOARD 






00130 


J SCAN ROUTINE. 


THE SPECIFIED FILE WILL BE 






00140 


1 LOADED 


ONE RECORD AT A TIME INTO LOCAL BUFFER 






00150 


J AND THE INTERRUPT HANDLER 


WILL 


PRINT ONE 






00160 


^CHARACTER EACH 


TIME THE PRINTER IS READY. 






00170 


IHHEN THE EOF IS FOUND THE 


LINK 


TO THE 






00180 


f INTERRUPT HANDLER AND THE 


KEYBOARD SCAN 






00190 


pIS REMOVED. 












00200 


i 










4467 




00210 


DISP 


EQU 


4467H 




» DISPLAY MESSAGE 


0040 




00220 


INPUT 


EQU 


40H 




1 INPUT MESSAGE 


4424 




00230 


OPEN 


EQU 


4424H 




IOPEN A FILE 


4436 




00240 


READ 


EQU 


4436H 




IREAD A FILE 


4510 




00250 


MS25 


EQU 


451 OH 




125 MS QUEUE 


4016 




00260 


KBDD 


EQU 


4016H 




1 POINTER TO KEYBOARD 


402D 




00280 


DOS 


EQU 


402DH 




JRTN TO DOS 


00EA 




00290 


CNTREG 


EQU 


OEAH 




ICONTROL/STAT UART 


OOEB 




00300 


DTAREG 


EQU 


OEBH 




»DATA 


3FFF 




00320 


ALIW 


EQU 


3FFFH 






OOEB 




00330 


RESURT 


EQU 


0E8H 






00E9 




00340 
00350 


SWITCH 
i 


EQU 


0E9H 






FDOO 




00360 




ORG 


OFDOOH 






FDOO 


D3E8 


00370 


SETUP 


OUT 


(RESURT) r A 




p RESET UART 


FD02 


DBE9 


00380 




IN 


A» (SWITCH) 




pREAD SWITCHES 


FD04 


E6F8 


00390 




AND 


0F8H 




J KILL LOW THREE 


FD06 


F604 


00400 




OR 


04H 






FD08 


D3EA 


00410 




OUT 


(CNTREG) p A 






FDOA 


DBE9 


00420 




IN 


At (SWITCH) 






FDOC 


E607 


00430 




AND 


07H 






FBOE 


2172FD 


00440 




LD 


HLpBDTABL 






FD11 


0600 


00450 




LD 


BrO 






FD13 


4F 


00460 




LD 


C»A 






FD14 


09 


00470 




ADD 


HL»BC 






FD15 


7E 


00480 




LD 


Ap(HL) 






FD16 


D3E9 


00490 




OUT 


(SWITCH) t A 










00500 


JUART IS SETUP 


NOW TALK TO 


OPERATOR 


FD18 


2141FE 


00510 




LD 


HLpMSGI 






FD1B 


CD6744 


00520 




CALL 


DISP 






FD1E 


211AFE 


00530 




LD 


HLf INBFR 






FD21 


0620 


00540 




LD 


Bt32 






FD23 


CD4000 


00550 




CALL 


INPUT 






FD26 


78 


00560 




LD 


ApB 




fGET ACTUAL * 


FD27 


B7 


00570 




OR 


A 






FD28 


28D6 


00580 




JR 


Zt SETUP 




I NO INPUT 


FD2A 


EB 


00590 




EX 


DEpHL 






FD2B 


83 


00600 




ADD 


AfE 




» ADDRESS** 


FD2C 


6F 


00610 




LD 


LfA 




*LOW ADDRESS 


FD2D 


7A 


00620 




LD 


A»D 




SHI ADD 



er to the keyboard driver. 

Trie TRS-80 hardware inter- 
rupts the microcomputer forty 
times per second. The operating 
system uses this interrupt to run 
foreground tasks. These tasks 
include the real time clock, 
TRACE, or any job you'd like to 
run. 

To run a given Job you need to 
store the address of a pointer in 
the 25 millisecond queue list. 
The queue list is at memory 
location 4510H and 4511 H. The 
pointer is two memory bytes 
containing the address of your 
program. 

This is a little confusing so 
let's look at Listing 2 to see what 
it means. 

Lines 800 through 850 put the 
address of something called 
PINT in locations 451 OH and 
451 1 H. Notice that the code also 
saves the former contents of 
4510H, 451 1H to be put back 
later. PINT is a pointer that con- 
tains the memory address of 
your program. 

In this example, 4510H, 451 1 H 
contains FD7A (the address of 
PINT) and FD7AH contains the 
address of INTHDL (FD7CH). 
Now, every 25 milliseconds 
INTHDL, the interrupt handler, is 
run. 

INTHDL 

The function of the DSPOOL 
interrupt handler INTHDL is very 
simple. It checks the RS232 
board to see if it will accept an 
output character. If the RS232 
board is not ready, INTHDL 
returns to the operating system. 
If a character can be output, 
INTHDL checks CCNT. 

As long as CCNT is zero, 
INTHDL returns to the system. If 
it isn't, one character Is output 
and counted. If the character is 
a carriage return, the buffer is 
set up to output a line feed. As 
long as there is data in the buf- 
fer, INTHDL will print it. All of 
this takes place in time stolen 
from your other work by the in- 
terrupt. 

Getting data to the buffer is 
SCAN's job. SCAN reads one 
record every time the print buf- 
fer is empty (CCNT=0). It is 
linked to the TRS-fiO keyboard 
driver and runs every time the 
system checks the keyboard for 
input. 
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IWEB m ASSOCIATES 



GGQBI TRS-80 OWNERS *LW 

SAVE "TONS" OF TIME TYPING IN YOUR BASIC PROGRAMS with TSHORT"; 
WEB'S FAMOUS SHORTHAND FOR LEVEL II and DISK BASIC 
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TRS-80 Keyboard with TSHORT Decals installed. 

•Works with all LEVEL II and Disk Operating Systems including 

NEWDOS 
*31 preprogrammed statement keys 

* One KUSTOM rM key, up to 64 characters — changeable anytime 

* 42 key decals (see picture). 10 are different for disk users 

* A single, shifted-key entry types entire statement on screen 

* Only 580 bytes of machine language in low memory 

* Comes on cassette, one side for LEVEL II, the other for DOS 

* DOS version loads to and executes from disk via TAPEDISK 

* Features self-en te ring commands, i.e. CONT; GOTO10; KUSTOM 

* TSHORT with four page instruction manual $9.95 



TSEL™ - We'll convert your IBM SELECTRIC to a high quality 
printer — /Jp control — 512 character buffer — special TRS-80 
cable with custom control switches - complete and ready to 

LPRINT (cleaning and minor service included) $795.00 

(Options and shipping extra — call or write for special shipping 
instructions) 

TLEC ,M - EPROM and cable interface kit for your IBM ELEC- 
TRONIC 50 or 60 — comes with custom control switches, 
installs in minutes $289.00 

TBEEP™ - For LEVEL II and DISK USERS - A self contained 
audio alert beeper with a pager-like tone. A simple BASIC pro- 
gram commands it to beep, i.e.: OUT 255, 1: FOR 1=1 to 300: 
NEXT: OUT 255,0. Plugs in-line with "AUX" cable from your 
TRS-80 (Requires 9V Battery) $ 19-95 

TBUFF™- For LEVEL II CASSETTE USERS. Eliminates, once 
and for all, cassette relay sticking. Plugs in-line with the "REMote" 
cable between your TRS-80 and cassette recorder. 
(Specify cassette recorder make and model) $ 9.98 

TPAK™ - Pack of 10C-10 blank tape cassettes with box and blank 
labels. (AGFA 611 tape, the best money can buy) . ... $ 12.95 



TO BE RELEASED EARLY 1980: 

TBASE™ - A powerful DATA BASE MANAGER program second 
to none! A $400.00 value for $ 29.95 

TCHAIN™ - For LEVEL II USERS - Preserve your variables and 
arrays while CLOADing multiple programs, EDITing, or execut- 
ing RUN $ 9.90 



3 



Send check or money order to: WEB ASSOCIATES 

TELEPHONE ORDERS. P.O. BOX 60 QC, MONROVIA, CA 91016 



(714) 559-6249 



(Calif, residents add 6% tax) 



• 27 



DEALER INQUIRIES INVITED 
SORRY - NOC.O.D.'S 
FOREIGN ORDERS ADD 20% 



UP TO 25% OFF^ 

YOUR OWN TRS-80 SYSTEM AT TREMENDOUS SAVINGS 

Visit our mw Store at 20th A Wmlnut, Phil:, PA 

$3626.00 




ftEO. 



ITEM 

Level II— 4k 
Level II— 16k 
Expansion Interface 

MimDiakDrtoi 

C*o! romes 779 PnnUr 
Cmnuoruct 101 P ri n ter 
Anadei DP-8000 Pnntar 

Memory K.N16K) ssia 

Verbatim DrtfcartetM 
3 
10 

c-10 Cm— e i * 
25 
Papa* (9" j » 1 ' ijntoid 

35O0shwtsl 



$619.00 

$849.00 
$299.00 

S 496 00 

$1599 00 
$159600 
$i2f»00 
s S 1*900 
S 595 
S 1799 
S 5900 
S 495 

S 24 75 



$575.70 
$789 60 
$276,001 

S 38500 
$1175.00 
$140000 
$ 99500 



MOO 
495 

1200 

37 00 
450 

18 75 



SALE 



Centronics 730 



$ 3500 $ »tS 



$850.00 



TRS— $0 MODEL II 

• 64K RAM 

• ViMEGOISK 

AOOITIONAL CMS K DRIVE ( 1 ST) s 1 069 SO 

ADOITIONAl DISK DRIVE (2ND ♦ 3RD) % 556 00 
VR Data's tot Drhro $899.00 

BUSINESS SOFTWARE 

Modal II Modal I 

$199 00 



Payroll 

General LEDGER 

(inc. AP. AR, etc.) 

DATABASE 

MANAGEMENT 

SYSTEM 



$199.00 



$249.00 



$99 00 
$149.00 



$149.00 



Documentation only (each Package) $5.00 

GENERAL SOFTWARE 



NEWDOS+ 



Electric Pencil 



40 tk. 

$110 00 

Disk 

$150.00 



35 tk 

$99 00 

Tape 

$99.00 

Upper/ Lower Case Conversion 

Tape $19.95 Disk $24.95 
Diagnostics Tape/Disk $34.55 

Household Inventory Disk $19 95 

Loan Amortization Schedule $19.95 



MARCH SPECIAL 

(Good until 3 31 80) 

MINI-DISK DRIVES 
$350.00 

—NEW- 
S' 4 Disk Head Cleaner Kit $14.95 

NOW OPEN 

VR DATA'S Computer 
Repair Center 



There are new development* every day — 
write or call for Ilia lateet Information. 




777 

Folcroft Industrial Park 

Foicroft PA 19032 

(215) 4615300 *-z\ 



N-6 



55 



TOLL FREE 

1-(800) 345-8102 Orders only? 



: 



Same as Line Printer II FOREIGN and DOMESTIC DISTRIBUTORSHIPS AVAILABLE . . . 

TIllIftllllllMIIlIIIlIIIItHITTT 



iS Reader Service—see page 147 
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FD2E 


CEOO 


00630 




ADC 


ArO 




FD30 


67 


00640 




LD 


Ht A 


J HI ADDRESS 


FD31 


3620 


00650 




LD 


< HL) 1 20H 


J BLANK CR 






00660 


{INBFR 


NOW HAS 


FILE SPEC WITH TRAILING BLANKS 






00670 


{INTERRUPT DRIVER IS LINKED ANY 


TIME CCNT IS 






00680 


{NOT ZERO IT WILL PUT OUT THE NEXT CHARACTER 






00690 


i 












00700 


J NOW TIME TO OPEN THE SPOOL FILE 


FD33 


2161FE 


00710 




LD 


HLr BUFFER 


{ PLACE TO PUT DATA 


FD36 


111AFE 


00720 




LD 


DEf INBFR 


IOCB 


FD39 


0600 


00730 




LD 


BfO 


fLRL=0 


FD3B 


CD2444 


00740 




CALL 


OPEN 




FD3E 


2809 


00750 




JR 


ZrOK 


JZ-1 IF OK 


FD40 


2152FE 


00760 




LD 


HLtERM 




FD43 


CD6744 


00770 




CALL 


DISP 




FD46 


C32D40 


00780 




JP 


DOS 


{AND GET OUT 






00790 


{LINK 


25 MS DRIVER 




FD49 


F3 


00800 


OK 


in 






FD4A 


2A1045 


00810 




LD 


HLf (MS25> 


{OLD ONE 


FD4D 


225FFE 


00820 




LD 


<SAV25)rHL 


{SAVE IT 


FD50 


217AFD 


00830 




LD 


HL»PINT 


f POINTER 


FD53 


221045 


00840 




LD 


<MS25) »HL 


{LINK 


FD56 


FB 


00850 




EI 






FD57 


2A26FE 


00860 




LD 


HLr (SEC) 


{GET SECTORS 


FD5A 


2217FE 


00870 




LD 


(SECTOR) ,HL 




FD5D 


3A22FE 


00880 




LD 


A»(BX) 


{GET BYTES TO EOF 


FD60 


3219FE 


00890 




LD 


(BCNT)pA 








00900 


{FILE 


OPEN OK 


«0W LINK KBD SCAN 


AND GET OUT 






00910 


JKBD SCAN UILL 


THEN FIND BUFFER 


EMPTY 






00920 


{and read a record. 




FD63 


2A1640 


00930 




LD 


HL» (KBDD) 


{GET OLD ADDRESS 


FD66 


22C9FD 


00940 




LD 


<KEY)»HL 


{SAVE FOR CONTINUE 


FD69 


21B9FD 


00950 




LD 


HLf SCAN 


{NEW SCAN 


FD6C 


221640 


00960 




LD 


(KBDD)pHL 


{LINKED 






00970 


{SCAN 


IS NOW LINKED. NEED ONLY 


TO ENABLE 






00980 


J INTERRUPTS AND GET BACK TO DOS 


. SCAN WILL 






00990 


J BE RUN EVERY 


TIME KEYBOARD IS 


CHECKED 






01000 


{INTHDL WILL BE RUN EVERY 25 MS 




FD6F 


C32D40 


01010 




JP 


DOS 


{GET OUT 






01020 


{THIS 


IS THE BAUDE RATE TABLE 




FD72 


22 


01030 


BDTABL 


DEFB 


22H 




FD73 


44 


0104Q 




DEFB 


44H 




FD74 


55 


01050 




DEFB 


55H 




FD75 


66 


01060 




DEFB 


66H 




FD76 


77 


01070 




DEFB 


77H 




FD77 


AA 


01080 




DEFB 


OAAH 




FD78 


CC 


01090 




DEFB 


OCCH 




FD79 


EE 


01100 
OHIO 




DEFB 


OEEH 








01120 


{THIS 


IS INTHDL THE INTERRUPT HANDLER 






01130 


{IT WILL PRINT 


A CHARACTER IF CCNT IS NOT 






01140 


• ZERO 


AND THE 


PRINTER IS READY. 




FD7A 


7CFD 


01150 


PINT 


DEFW 


INTHDL 


{POINTER TO INTHDL 


FD7C 


F5 


01160 


INTHDL 


PUSH 


AF 


{SAVE AF 


FD7D 


E5 


01170 




PUSH 


HL 




FD7E 


3AFF3F 


01180 




LD 


Af (ALIV) 




FD81 


3C 


01190 




INC 


A 




FD82 


32FF3F 


01200 




LD 


(ALIV)rA 




FD85 


DBEA 


01210 




IN 


Af (CNTREG) 


{STATUS 


FD87 


CB77 


01220 




BIT 


6fA 


{READY 


FD89 


281F 


01230 




JR 


ZfCONT 


{NOPE GO ON 


FD8B 


2A3FFE 


01240 




LD 


HLf (CCNT) 


{CHAR COUNT 


FD8E 


7D 


01250 




LD 


ArL 




FD8F 


FEOO 


01260 




CP 







FD91 


2005 


01270 




JR 


NZ»OTPT 


{PUT IT OUT 


FD93 


7C 


01280 




LD 


ArH 


{L*0 CHECK H 


FD94 


FEOO 


01290 




CP 







FD96 


2812 


01300 




JR 


ZfCONT 


{ALL ZERO GET OUT 


FD98 


2B 


01310 


OTPT 


DEC 


HL 


{-1 


FD99 


223FFE 


01320 




LD 


(CCNT)»HL 


{PUT IT BACK 


FD9C 


2A3DFE 


01330 




LD 


HLf (ADDR) 


{GET ADDRESS OF CHAR 


FD9F 


7E 


01340 




LD 


Af (HL) 


{DATA 


FDAO 


D3EB 


01350 




OUT 


(DTAREG)f A 


{OUTPUT IT 


FDA2 


FEOD 


01360 




CP 


ODH 


{IS IT CR? 


FDA4 


2807 


01370 




JR 


Z»CR 


>YES 


FDA6 


23 


01380 




INC 


HL 


{BUMP ADDRESS 


FDA7 


223DFE 


01390 




LD 


(ADDR)rHL 




FDAA 


El 


01400 


CQNT 


POP 


HL 




FDAB 


Fl 


01410 




POP 


AF 




FDAC 


C9 


01420 




RET 




{DONE GET OUT 






01430 


» FOUND CR INSERT LF 




FDAD 


3E0A 


01440 


CR 


LD 


AfOAH 


{CR 


FDAF 


77 


01450 


XCR 


LD 


(HL)rA 


{PUT IN BUFFER 






01460 


J AND DONT BUMP 


ADDRESS 




FDBO 


2A3FFE 


01470 




LD 


HLf (CCNT) 


{GET COUNT BACK 


FDB3 


23 


01480 




INC 


HL 


tPUT 1 IN FOR LF 


FDB4 


223FFE 


01490 




LD 


(CCNT)fHL 


{PUT IT BACK 


FDB7 


18F1 


01500 
01510 


{ 


JR 


CONT 


{GO ON 






01520 


{THIS 


IS SCAN 


- IT IS LINKED TC 


KEYBOARD SCAN 



If there is data in the buffer, 
SCAN returns control to the key- 
board driver. But, if the buffer is 
empty, SCAN performs a file 
read, delaying the keyboard in- 
put for about one second. 

If all the data has been read 
from the file, SCAN disconnects 
the DSPOOL program. 

If your printer is 110 baud, the 
disk reads occur about every 30 
seconds. The spool system 
does not drive any printer faster 
than 40 characters per second 
(one per interrupt). 

If your printer is faster than 
this, it will slow down to 40 CPS. 
At 40 CPS the disk reads occur 
about every 7.5 seconds, if 
reading at this rate interferes 
with the keyboard too much, 
then add a counter to INTHDL to 
slow the printer and thus the 
reads. 

Another technique that re- 
duces disk reads is reading two 
(or more) sectors at a time. 
However, this complicates the 
procedure used to find the end 
of the data. 

Modifications 

The DSPOOL program shown 
in Listing 2 is for a serial printer 
using the Radio Shack RS232 
board. The program can be used 
with a parallel printer (such as 
the standard printers sold by 
Radio Shack) by making a few 
changes. 

Delete lines 370 through 500 
and move the label SETUP to 
line 510. Replace lines 1210 
through 1230 with the code in 
Listing 3. Replace line 1350 with 
LD (37E8H),A. 

If your printer automatically 
feeds a line on every carriage 
return then delete lines 1360 
through 1370 and lines 1430 
through 1500. 

If you use SPOOL-DSPOOL 
with NEWDOSor NEWDOS30, it 
works as is. If you use it with 
TRSDOS 2.1, TRSDOS 2.2 or 
VTOS 3.0, you must add DEC HL 
between lines 860 and 870. This 
is necessary because the NEW- 
DOS DCB maintains the number 
of sectors in a file, while the 
other systems maintain the 
number of sectors plus one. 

If you use TRSDOS 2.2, 
change the program ORG and 
move both programs down to al- 
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Scanned by Ira Goldklang www.trs 80 com 




Can your computar raad and sorva thtt probfvm by itsalf? 



"ON THEIR VACATION, TOM AND DICK VISITED A 
FARM. WHILE THERE, THEY NOTICED A PEN 
CONTAINING CHICKENS AND PIGS. TOM SAID 
THERE WERE 3 TIMES AS MANY CHICKENS AS 
PIGS. DICK SAID HE COUNTED 100 LEGS IN THE 
PEN. HOW MANY CHICKENS WERE IN THE PEN?" 



^ r 

I 



with N LOS/1, it can! 

NLOS/1 16K; NLOS/2-32K, LARGER 
VOCABULARY, FASTER, ACTION VERBS - 
CREATES AND RUNS ITS OWN BASIC 
PROGRAMS -LEARNS PROCEDURES! 

STOP PROGRAMMING YOUR COMPUTER, 
EDUCATE IT! i CASSETTE 



I 



SOURCE 



$1.95 



ORDER TODAY! 



$4.95 



CYBERMATE - 

Ft.D.#3BOX 192A 
NAZARETH PA 18064 



THE ULTIMATE TRS-8Q SPEED-UP! 

Mumtord Micro Systems announces the release ol the SK-2. The most versatile clock modification 
lor the TRS-80 available M teaiures three speeds, normal (i 77MHz). 50% taster or 50% slower, 
selectable at any time without interrupting execution or crashing the program It may be 
configured by the user to change speed with a toggle switch or on software command. It may be 
tied to the expansion interface and will automatically return to normal speed anytime a disk drive 
is active It even has provisions for adding an LED to indicate when the computer is not at the 
normal speed It mounts nside the keyboard unit with only 4 necessary connections for the switch 
option (switch not included), and is easily removed it the computer ever needs Service The SK-2 
comes lully assembled with illustrated instructions for implementing the various options and 
complete satisfaction is guaranteed $24 95 

DUPLICATE SYSTEM TAPES WITH "CLONE" 

This machine language program makes duplicate copies of ANY tape written tor Level II They 
may be SYSTEM tapes (continuous or not) Of data lists It is not necessary to know the file name or 
where it loads In memory, and there is no chance of system co-residency The file name entry 
point and every byte (in ASCII formatl are displayed on ihe video screen Data may Be modified 
before copy is produced CLONE . . . $16 95 

RAM TEST FOR LEVEL II 

This machine language program tests memory chips tor open or shorted address or data lines as 
well as intermittens It tests each BIT lor validity and each BYTE in the execution of an actual 
instruction as m real program execution Bad addresses are displayed along with the Dad data and 
proper data One complete test of 48K takes just 14 seconds Also includes a test for errors 
induced by power line glitches from external equipment RAMTEST $9 95 

PROGRAM INDEX FOR DISK BASIC 

Assemble an alphabetized index of your entire program library from disk directories Program 
names and free space are read automatically (need not be typed m) and may be alphabetized by 
disk or program The list may also be searched tor any disk, program or extension disks or 
programs added or deleted, and the whole list or any pan sent to the printer Finally, the list itself 
may be stored on disk for future access and update One drive and 32K required INDEX $1995 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

This program allows disk users to load Basic programs or any other ASCII data file into the disk 
version of Electric Pencil tor editing Now you can edit line numbers, move program segments, 
duplicate program segments, and search for the occurance ol any group ot characters 
PENPATCH $9 95 

SPOOLER FOR PARALLEL PRINTERS ' UA 

This program is a lull feature print formatting package featuring user defmeabie line and page 
length (with line feeds inserted between words or after punctuation), screen dump, keyboard 
debounce. and printer pause control in addition, printing is done from a 4K buffer area so that the 
LPRINT or LLIST command 'eturns control to the user while printing is being done Ideal for 
Selectnc or other slow printers Allows printing and processing to run concurrently 
vSPOOLER. $1695 



■J^ Include 75c postage California residents add 6% sales tax 

BBaWawa Complete satisfaction or full refund 

MUMFORD MICRO SYSTEMS 

BOX 435 E SummerUnd. California 93067 (t05) Mt-4557 



SIMUTEK PRESENTS 

* TRS-80 • 

GAMES 

!!! WHOLESALE!!! 



PACKAGE ONE 



an aphic-TRCK ■ MM " - THh full praphtcs, roai lima pama is full of fMt. aadtmp action! EMptpdinp 
photon torpadoas ma phasars fill tha scrpanl Vou mun actually navlpatP tha antarprlsa to dock with tha 
plant spaca stations as w«H aa to avoid kilnpon torpadoas I Mas shktfds. palactk mamory roadout, damapa 
rppprts, long nnp samofi. etcl Has J i*v«ii for baatnnlng, avorppa, or axpart pfayprsl * INVASION 
won a - Timai 3099, Piaeat Earth's Solar Systam Minion: As oanarai of earth's forcaa. your JoO is to 
stop tfia Wor« Invasion and dastroy thalr outposts on Mart, Vonus, Saturn, htaptuna, atc> Earth's forcaat 
Android. — Spica Fiphtart — Lam* Cannon — Nautrino Siastorst Mora Forcos: RoBots — Saucan — 
CMsln taprators — Proton Dastroyorsl Multt tava* pama km you advanca to a mora compiicatad pama as you 
pat battarl • STAN WARS - Manuavar your spaca flantar doap Into tha nuciaut of tha Oaath Star! Orop 
your bomp, than ascapa via tha only aalt. This praphlcs pama Is raaliy fun' May tha Forea pa with 
youl a SPACK TAPQCT — Shoot at anomy Ships with your mi a a Pas . if lhay atact m a parachuia. 
captura tham - or II you'ra crwai. oaatroy thamf Full praphlcs, rpal tlma pama! a SAUCBRft - This fast 
action praphlcs pama has a lima limit' Can you Pa tha commander to win tha dsstlnpulshad croaaf 
Raoutras tpm sacond tlminp to wtn, Watch out* 



PACKAGE TWO 



CHICKIRI t-l - Finally! A enpekars propram that wHi cnatlonpa avaryona' Impart as wail as amataurt 
Uaaa S-piy traa aaarch to find bast paaaiaia mova. Picks randomly patwaan aoua< movas to asaura you of 
aavar havtnp idont»ca< pa mas. a POPUP FACS ■ Tha computar usos psychoiofy as wpH as lootc to try 
and Paat you at poatar. cards ara dttptayad usmp IRSIO'; fu<i praphics. Computar raiaas. cai>v and 
somatimas avan 'o'er Graat pr act lea for your Saturday maht pokpr match' (Plays S card 
draw), a psychic — Tail tha computar a Mttk* aoout yourspif and ha'n proOKt thinps aPout you, you 
won't PatHtva' A raal mind Pandar 1 Graat amutamunl for p*rtan. a TANPLl MANIA - Try and forca 
your opponpnt into f immopua position. But watch out. tnay*ra ooanp trap samp to you ■ This praphics 
pama is for 2 paop*a and has boon usod to and stupid arpumants. (And occasionally starts 
thamf) a WORO $c« amil! - Tnn pama i for two or mora poopta. Ona parson inputs a word to tha 
computar whita tha omars 'oo« away- Tha computar scrampaas tha word, than i—aps track of wrprtp 



PACKAGE THREE 



POCTPY - This propram ujts you cnooaa tna tuPaact as wan as tha mood of tha poam y< 

prva TRS-BO ca"»n nouns or namat. than tha mood, and -i doas tha rost< it has a 1000-word 

of noK.ni. vprps, adjactrvaa and advarbs' a KLBCTRIC ARTIST — Manual- draw, arpaa, m. 

Auto draw, arasa and mova. jui prapnwa bits not bytas. Savaa drawinp on tapa or dish' • 

BATTLK — Tha Sw mam anamy hava lonp ranpa phasars Put cannot travai at warp spaao 1 

only hava short ranpa ph a sars' Can you BUtfhripp tna anamy without aattinp dastroyad' F 

rapl timp! a WORO MANIA — Can you pups* tha computar's words utmp your human 

•oprcai itnium' Vou'H npad to. to Paat tha computar' a AIR COMMAND — Bait a tha Kamtbuua pilots. 

Rapuiras spilt sPcond timmp. This is a FAt$T action arcada pama 



GALACTIC 



i prapn<ci - 



► PACKAGE FOUR 



LiFI — This 2-tO machma lanpuapa propram wsas full praphics! Ovar 100 panprations ppr minuta maka 
truly animataor Vou maka your staninp pat tarn, tna computar pops tna rast 1 Propram can pa stoppad and 
chanaps madal Watch it prow! a SPACf i-ANOPIR - This full praphics simulator tats you pick what 
pianat. astarpld or moon you wish to land on! Has 3 skin tovprs that maka It fun for pvaryona. a ORKCO 
II — Muitt-iavai aama is fun and chailanptnpl ateat tha computar at this dtca pama usinp your knowiaaH 
odds and luck! Computar kppps track of hr» winninoj and yourt. Quick fast action. Thri aama h> not 
aasy! a THH PHARAOH — Rula tha anclani city of Ataaanoria! Buy or sPU land- Kapp your paopla from 
rawoitinp! Stop tha rampaplnp rats. Rapuiras a trua political parsonallty to bocoma poodl a ROl 
HUNTKR — A troup of rpnapadp robots hava aacapad and ara spottad in an old phoat town on Mars' ' 
fob as "Rooot Huntar" Is to dastroy tna pirata machinos bafora thpy kin any mora sattiarsl Cxcltlnpl 
Challanalnpl Full praphics? 



PACKAGE FIVE 



SUPftR HORSKRACI - Maka your bats ji, 
pr*Phlc display! uo to 9 oaopfa can play' ' 
llfaf Kaaps track of avaryona's wtnninps and 
actually pat a room of paopla chaarmgf a 
panaraias random maias of whatavar sua y< 
always po fastast routa* A tr 
mouSPSl a AMOEBA KI4.I.CR - V 
ol pactaria in this axdtmp praphic i< 
dastroy tha daadfy amoaoa tnfacti 



mazI Mouse 

:iiy. I 



I has that aiamant of chanca you saa In 
i of tha faw computer simulations trial 



i for avaryona. a SUBMARINCR - Shoot torpadoa i . 



display of artificial intwuaanca! Full praphics. maaas 4 

command a ona man supmarina that has baan snrunkan to tha su< 

ntura! Inpxtad into tha prasrdanfs Moodstrpam, your mission is ti 

ravapmp nis body' a LOOIC — Trtrs popular pama is baspd o< 

citinp and cnailanpinp — n«s 2 lawais of play to mat* 



yPody? 



amy ships to pal oo«nt». 



PACKAGE SIX 



M HOMC FINANCIAL PROORAMS ~ dauraa 
tabkts, aarnad tntarast on savinps and much, much ■ 
must for tna con soon nous, inflation mindod parson 



tixation. annu'tias. dapraciation ratas. 



PACKAGE SEVEN 



■ACKOAUMON II - 2 diffarant skin ia«pis maka tnis pama a ctwjiianpa to avarap 
(Not racommondPd for pppinnars). Looks for bast possipia mova to paat you' FANTASTIC 
Nays doupfos and usas )ntarnaiipnai rv>as. a into RCAOINO — incraasas your raading 
chocks for cornp»pnpn > too of matariai. Orpat for taanapa n and adults to •mprovo raadtnp skin 
— Orop dapch charajpa on movinp tuM. Lowar dapths apt hiphpr points <n tins fast act 
pama. a VAHTZU — Piay vahtpaa with tha computar Thi» popular pama n ovpn mi 
chalkmpinp apainst a TRS-90! a WALL STRUT — Can you turn your SS0.000 >nto a m.i 
Truit's tr* opfact of thts praat pama. Simmataa an actual stock markot! 



D'syar, 
APHICS 
aad. Also 



TAIi STORES AN 



INSTRUCTION BOOK WITH EACH PKG. 



ONLY 12.95 EACH'!'! 



ALL PROGRAMS GUARANTEED TO LOAD 
CASSETTE PACKAGES REQUIRE 16K LEVEL II 
PACKAGES ON DISKETTE (32K) $5.00 EXTRA 



,--" 



Sand check. Money Order or Bank Card # 

TO: SIMUTEK, P.O. BOX K 35298 
TUCSON, ARIZONA 85740 
(602) 882-3948 



PHONE ORDERS WELCOME' 



iSE ADD $2.50 POSTAGE & HANDLING PER ORDER! 
3 OR MORE PACKAGES GET 10% DISCOUNT l 



is Header Service— see page U7 
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01530 J AND UILL WATCH CCNT. IF CCNT IS ZERO THEN 
01540 .SCAN UILL READ A RECORD. IF EOF IS FOUND OR 
01550 JANY READ ERROR IS ENCOUNTERED SCAN UILL 
01560 {DISCONNECT ITSELF AND THE 25 MS HANDLER 







01570 


5 










FDB9 


F5 


01580 


SCAN 


PUSH 


AF 






FDBA 


E5 


01590 




PUSH 


HL 






FDBB 


2A3FFE 


01600 




LD 


HL.(CCNT) 






FDBE 


7D 


01610 




LD 


A.L 






FDBF 


B7 


01620 




OR 


A 






FDCO 


2004 


01630 




JR 


NZ.EXIT 






FDC2 


7C 


01640 




LD 


A.H 






FDC3 


B7 


01650 




OR 


A 






FDC4 


2605 


01660 




JR 


Z.RRCD 


J YES READ RECORD 








01670 


fNOPE 


- RETURN 


TO KEYBOARD 






FDC6 


El 


01680 


EXIT 


POP 


HL 






FDC7 


Fl 


01690 




POP 


AF 






FDC8 


C30000 


01700 




JP 





J DUMMY JUNP 




FDC? 




01710 


KEY 


EQU 


*-2 


.BACK UP 2 




FDCB 


C5 


01720 


RRCD 


PUSH 


BC 






FDCC 


D5 


01730 




PUSH 


DE 






FDCD 


DDE5 


01740 




PUSH 


IX 






FDCF 


FDE5 


01750 




PUSH 


IY 






FDD1 


111AFE 


01780 




LD 


DE. INBFR 


fDCB 




FDD4 


CD3644 


01790 




CALL 


READ 


J READ RECORD 




FDD7 


2817 


01800 




JR 


Z.OKR 


J READ OK SET COUND 






01810 


.NOT OK KILL EVERYTHING 






FDD9 


F3 


01820 


CLOS 


DI 




fSTOP INTS. 




FDDA 


2A5FFE 


01830 




LD 


HL. (SAV25) 


.OLD ADDRESS 




FDDD 


221045 


01840 




LD 


(MS25).HL 


»PUT BACK 




FDEO 


2AC9FD 


01850 




LD 


HL. (KEY) 


.OLD KBD 




FDE3 


221640 


01860 




LD 


(KBDD) .HL 


.PUT BACK 








01870 


JNOU POP REGISTERS AND RESTORE 


STACK 




FDE6 


FDE1 


01880 


POP 


POP 


IY 






FDE8 


DDE1 


01890 




POP 


IX 






FDEA 


Dl 


01900 




POP 


DE 






FDEB 


CI 


01910 




POP 


BC 






FDEC 


FB 


01920 




EI 








FDED 


C3C6FD 


01930 




JP 


EXIT 










01940 


.READ 


IT OK SET 


UP CCNT THEN GET OUT 




FDFO 


2161FE 


01950 


OKR 


LD 


HL. BUFFER 






FDF3 


223DFE 


01960 




LD 


(ADDR).HL 






FDF6 


2A17FE 


01970 




LD 


HL. (SECTOR) 


.GET SECTORS 




FDF9 


7D 


01980 




LD 


A.L 


JTEST 




FDFA 


FEOO 


01990 




CP 





fZERO? 




FDFC 


200D 


02000 




JR 


NZ.DECIT 


J NOPE DEC IT AND 


STORE 


FDFE 


7C 


02010 




LD 


A.H 






FDFF 


FEOO 


02020 




CP 





.HI =ZERO? 




FE01 


2008 


02030 




JR 


NZ.DECIT 


JNOPE 








02040 


.SECTOR COUNT=0 


. USE EOF BYTE 


COUNT NOT 256 




FE03 


3A19FE 


02050 




LD 


A. (BCNT) 






FE06 


6F 


02051 




LD 


L.A 






FE07 


2600 


02060 




LD 


H.O 






FEO? 


1807 


02070 




JR 


SCNT 






FEOB 


2B 


02080 


DECIT 


DEC 


HL 






FEOC 


2217FE 


02090 




LD 


(SECTOR) .HL 






FEOF 


210001 


02100 




LD 


HL.256 






FE12 


223FFE 


02110 


SCNT 


LD 


(CCNT).HL 






FE15 


18CF 


02120 
02130 


» 


JR 


POP 


J RESTORE AND GET 


OUT 


FE17 


0000 


02140 


SECTOR 


DEFU 









FE19 


00 


02150 


BCNT 


DEFB 









FE1A 


20 


02160 


INBFR 


DEFM 


' 






FE26 




02170 


SEC 


EQU 


INBFR+12 






FE22 




02180 


BX 


EQU 


INBFR+8 






FE3D 


61FE 


02190 


ADDR 


DEFU 


BUFFER 






FE3F 


0000 


02200 


CCNT 


DEFU 









FE41 


44 


02210 


MSG1 


DEFM 


'DSPOOL FILESPEC?' 




FE51 


03 


02220 




DEFB 


3 






FE52 


44 


02230 


ERM 


DEFM 


'DSPOOL ERROR 






FE5E 


03 


02240 




DEFB 


3 






FE5F 


0000 


02250 


SAV25 


DEFU 









FE61 


00 


02260 


BUFFER DEFB 









FDOO 




02270 




END 


SETUP 






OOOOO TOTAL 


ERRORS 












25999 TEXT 


AREA BYTES LEFT 








ADDR 


FE3D 


02190 


01330 


01390 01960 






ALIV 


3FFF 


00320 


01180 


01200 








BCNT 


FE19 


02150 


00890 


02050 








BDTABL FD72 


01030 


00440 










BUFFER FE61 


02260 


00710 


01950 02190 






BX 


FE22 


02180 


00880 










CCNT 


FE3F 


02200 


01240 


01320 01470 01490 01600 


02110 




CLOS 


FDD9 


01820 












CNTREG OOEA 


00290 


00410 


01210 








CONT 


FDAA 


01400 


01230 


01300 01500 






CR 


FDAD 


01440 


01370 










DECIT FEOB 


02080 


02000 


02030 









low at least 51 unused bytes at 
the top of memory. Remember 
the end of the program is not the 
end of the memory it uses. Both 
SPOOL and DSPOOL use 256 
bytes of memory starting at 
BUFFER. If BUFFER is at FE69H 
the program uses memory up to 
FF69H. 

It is also necessary to change 
the program ORG if you have 
less than 48K of memory or if a 
program is already using the top 
of your memory. 

Another useful modification 
replaces the 32 blanks in INBFR 
(line 2160 in DSPOOL. line 1210 
in SPOOL) with a file name. For 
example:INBFR DEFW PRINT- 
FIL/LST '. (Be sure to include 
enough spaces after the file 
name and before the last quote 
mark to make a total of 32 char- 
acters.) 

Then delete the code that re- 
quests the file specification 
(lines 500 through 680 in 
DSPOOL, lines 300 through 450 
in SPOOL). The system then 
uses •PRINTFIL/LST" as the 
SPOOL, DSPOOL file and you 
don't need to answer the file- 
spec question. 

Operation 

Operating the SPOOL- 
DSPOOL system is very easy. 
Assemble the programs and cre- 
ate the disk files using NEW- 
DOS EDTASM, the Radio Shack 
EDTASM and TAPEDISK or any 
other assembler. I use SPOOL/ 
CMD as the file name for the 
spooler and DSPOOUCMD for 
the despooler. 

To use the system you need 
only type SPOOL when you want 
the spooling to begin and an- 
swer the FILESPEC? question 
with the name of the file that is 
to hold the printer output. If you 
want to spool BASIC output, you 
must run SPOOL before you go 
to BASIC, unless you have NEW- 
DOS. 

With NEWDOS you can run 
the SPOOL-DSPOOL system 
from BASIC with the CMD"XXX" 
command. When all of your 
printer output is spooled return 
to DOS and type "CLOSE" (or 
type CMD"CLOSE" from NEW- 
DOS BASIC). When you are 
ready to print the file type 
"DSPOOL" and answer the 
FILESPEC? question with the 
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Oku. w« yea ve kid a dunce to see wkil I km in hM for tm with 10 MICROCOMPUTIHjG. 
Ob. I idait Hut we're jest getting started and Hut th* aeguaw vll be mproving a let at «t go 
along. We bate soac atorestag ideas m Dm verbs lei yoa. 

Witk (be RS-tO (or 90 . . . etc.) being tbe aest popular aicrocoaputor in the entire world, roe 
are going to benefit free) Bis * aany wars. Ibe aae coapatat tbere are eel mere el en* 
kind ... tbe aore good programs in are going to bare for tbh syslem. I ben* (bat is obvious. 
Vw Mf bt sir* that 10 MICROCOMPUTING will b* picked witk t* sberttr programs and 
reviews of tbe larger ones. You can waste an awW lot *f money en staff that looks great in tbe 
ads, bat fizzles out wbeo you try lo use il. You need ear reviews. 

Tbe weellb of prograas wwl also aean tbat tbere will be aacb batter prograas for tbe TRS-10 
ken ant other system. Pit yourself in tbe seat el a coapater prooraaeer and you'd understand 
Ibis. If rea are going t* spam) several aantbs developing a coaprebensive prograa. and it tabes 
all ol that lo write and debeg i big prograa. would you writ* H fa a system which has sold on* 
hundred nits a one whirl bis sold ova 300.000 systems? The answer is obvious . . . and this is 
why we are already seeing prograas caning oat la a* "t0" wbieb a* fa bettor than anything 
la any otba system on a* aarket. This it leagb fa other systoas ... tt law el a* coapata 
jangle. 

between our connections with Instant Software, tbe largest pabhsba ol microcomputer pro- 
pazin (be world. «d Kilobaud MICROCOMPUTING, yoi haaw tat 10 MICB0C0MPUTIM6 it 
goiag to be yea aest important lab with software la the TRS40. 

With latlant Software bemg sold and promoted in every coantry m lb* world wbae tbe TRS-10 
it being sold, oa anal of prograas is also lb* best m the world. We get prograas snbaitled 
Iran •vtrywba* . . . often froa 50 to 100 i wetkl Yoa'li get tbe creia of Ibe crop either 
published a reviawtd a "SO". 



If coupon below has been used, please 
subscription form on the reader service 
of the magazine. . 



HARDWARE TOO 

The sea* law ol the ceapator jungle holds la hardwire. WeaM yea. is i atrwfactaa. 
aatet a* accessory fa a systoe which has sold 100 units a woeM yea go first fa tbe one 
vakb bas sold hundreds of tboasaadt. H is. as wrtb software. scH-eviearl why the great balk of 
•e hardwire accessories la coapetors ae la Ibe TRS-80 these days. 

tO MICROCOMPUTIMG bis tbe advantage of tbe as* ol tbe Urges! and aest coapteto 
aioocoapator lab in the world . . . tbt one developed la Instant Software and Kilobaud 
NMCR0C0MPUTIMG Ibis means that most new pieces of equipment are tested and in use by our 
staff . . . and this means that we can toll yea what we kink is outstanding ... and where we find 
rieoffs. Tbit lab it important to yea. 

SUBSCRIBE 

II yoi ae not already i subscriba to tO MICROCOMPUTING, please get signed up right now. 
Tbe yearly rites art SIS, and thai is a bargain. Jest on* single program of ase to yea can be 
worth aacb aae thai that. One review of an accessory could save you many limes that aacb in- 
veitaeni. I would appreciate it if yoi would appoint yourself a comm ittee ol oa* to gal more 
sehscriben fa Hit mignine. Yea will benefit eren aae than we do bae at the magazine . . . 
because the aat readers we have, the aore ads ae will be able lo attract ... and the aa* ads. 
the aa* pages of articles yoa will get every month. 

The "10" aatet cm. I think, seaport a coapto ol honored pages ol ads ... and thai woaM 
aean a aagaiine of nearly 500 pages a aonth. That sheaW hoM yea. Yea aiy aot have tiae left 
to esc yoa coapata. 

ENCYCLOPEDIA 

II yce've read Kilobaud MICMKOMPUTING. yoa know tbat I try bad net lo daplicitt pub- 
lished material. My concept is that every reader should save every rssat (we set ineipensive 
boies la tbh so they can sit on yoa library shelf) and treat tbe magazine a a continuing en- 
cyclopedia ol computing. I aake sac that aacb of tbe material m each issue is written in simple 
language so it will be understandable by even tbe rawest newcoaa to coaaatas. 0b, I bivt a- 
tictos fa the aae advanced isen toe. so you'll have something to look back over lata and use 
a yoa understanding ol yoa systoa grows. 

Try to Ihbth of tO MICROCOMPUTING is aae ol i lag* dab ntwstottor than an ivory Iowa 
big* level peMkalioa. I'll leave tbe poap to etha pabiishen ... th* eras with the well-deserved 
inferiority complexes who cater to their inadequacies by publishing eseteric baloney. This 
magazine is written by lb* readers and edited by people whose aia is to help yea enjoy yoa 

nut 

SAVE 

With each issue costing 12 at yoa coapata store, that's Mi i yea. For 11 5 a yea you can 
subscribe ... at toast la now. As the magazine eipaeds. please do not be surprised H tbe covet 
price increases, along with tbe sabscriptiea price. I started 73 Maoaihv* fa radio aaitoas twen- 
ty yeas ago with a cova price ol 37< (two la 73t) and it is up to 12.50 a copy now (and it is 
he lagest ol the baa aagaiiaes). 

Fa yoa bagaia batten ... and those who find that owe yea goes by all too rapidly. Ibe three 
yea rate fa "SO" is Sic This, loo. will be going up . . . reflecting the reflation, papa increases. 
postage increases, aid a short vacation tor ae in Hong Kong neit year. Soaeene has to pay la 
let. 



... fill out 

ice card in the back 



he reader service card in the back ^^^ ^^a ^^» ^^™ ^ 

1 £S . lot onW $15 a vmi! i 





□ 12 issues -SI 5 
[ ] 36 issues - $36 
[ ] Please bill me 
O Payment Enclosed 

D Master Charge 
VISA 

D American Express 
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PO Box 981 • Farmmgdale NY J 
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same filespec used to spool the 
output. When the system re- 
turns to DOS you may run anoth- 
er job, as long as you follow the 
rules. 

While DSPOOL is running, the 
character in the lower right cor- 
ner of the TRS-80 video display 
will flash. This indicates that 
DSPOOL is running. If you do 
not like this feature delete lines 
1180 through 1200 in DSPOOL. 

Summary 

The source code given in the 
listings is for the NEWDOS Edi- 
tor-Assembler. You can easily 
change the code for any other 
assembler. Don't forget the 
rules given above. Always close 
your spool file when you are fin- 
ished and be sure to protect the 
memory used by these pro- 
grams when in BASIC. 

Don't attempt to use CLOSE 
to close the read file after you 
run DSPOOL. It's not necessary 
and won't work. 

If you have two disk drives 
you can use one entire diskette 
to spool printer output. If you 



DISP 


4467 


00210 


00520 


00770 




DOS 


402D 


00280 


00780 


01010 




DTAREG 


OOEB 


00300 


01350 






ERM 


FE52 


02230 


00760 






EXIT 


FDC6 


01680 


01630 


01930 




INBFR 


FE1A 


02160 


00530 


00720 01780 02170 


02180 


INPUT 


0040 


00220 


00550 






INTHDL 


FD7C 


01160 


01150 






KBDD 


4016 


00260 


00930 


00960 01860 




KEY 


FDC9 


01710 


00940 


01850 




MS25 


4510 


00250 


00810 


00840 01840 




MSD1 


FE41 


02210 


00510 






OK 


FD49 


00800 


00750 






OKK' 


FDFO 


01950 


01800 






OPEN 


4424 


00230 


00740 






UTPT 


FD98 


01310 


01270 






PINT 


FD7A 


01150 


00830 






POP 


FDE6 


01880 


02120 






READ 


4436 


00240 


01790 






RESURT 


00E8 


00330 


00370 






RRCD 


FDCB 


01720 


01660 






SAV2S 


FE5F 


02250 


00820 


01830 




SCAN 


FDB9 


01580 


00950 






SCNT 


FE12 


02110 


02070 






SEC 


FE26 


02170 


00860 






SECTOR 


FE17 


02140 


00870 


01970 02090 




SETUP 


FDOO 


00370 


00580 


02270 




SWITCH 


00E9 


00340 


00380 


00420 00490 




XCR 


FDAF 


01450 









have only one drive, your spool- 
ing is limited, but you should be 
able to accumulate several 
pages of output before you must 
DSPOOL. Either way SPOOL- 
DSPOOL should improve your 
TRS-80 throughput. ■ 



01210 


LD A»(37E8H) 


01215 


AND OFOH 


01220 


CP 30 H 


01225 


JR NZ»CONT 




Program Listing 3. 



INTRODUCING THE HOTTEST "FIX-IT* BOOK YET ! 

"TRS-80 DISK AAD OTHER MYSTERIES 1 

by Harvard C. Pennington 

Here it is THE complete'disk reference manual" for your TRS-80 ! 

An excellent manual and tutor for beginners and professionals alike 



^0 W TOinlorn, a t»i r l^^ 



SSTSSrS ^ «».!= 



PLAIN ENGLISH 



REVEALS ALL, IN EVERYDAY PLAIN ENGLISH 

How to recover LOST FILES. HASH CODES, KILLED FILES, 

CLOBBERED DIRECTORIES. BAD PARITY ERRORS, GAT & HIT ERRORS, 

UNREADABLE DIRECTORIES, DIRECT STATEMENT IN FILE ERRORS. 

ELECTRIC PENCIL ERRORS & LOST PENCIL FILES. 

RECOVER ELECTRICALLY OR PHYSICALLY DAMAGED DISKS. 

RECOVER FROM A DOS ERROR 22 IN PENCIL. MAKE BASIC PROGRAMS UNLISTABLE. 

RECOVER OVER-WRITTEN FILES, READ OR EDIT ANY BASIC PROGRAM WITH ELECTRIC PENCIL, 

REMOVE PROTECT STATUS, HOW TO USE SUPERZAP 

And the list goes on and on. 




Here is what the noted microcomputer author. WILLIAM BARD EN, JR. 

has to say about this valuable manual: 

this extensive book by Harv Pennington is clearly presented 

and packed with good disk information. My advice to any TRS-80 user is to 
GET IT. AND USE IT !" 



'LARGE 8Vi BY 11 EASYTO-READ FORMAT, OVER 130 PAGES" 

Send just $22.50 (Calif, add 6% tax) plus $1 .00 postage to 



•TRS-80 is a Trademark of TANOY CORP 

ORDER TODAY ! 



SEE YOUR FAVORITE 
COMPUTER STORE 
OR ORDER DIRECT 



^37 



IJG, INCORPORATED 

569 North Mountain Ave. — Suite B 

Upland, California 91768 
(Sorry, no COD's on this special offer) 



VOLUME DISCOUNTS AVAIL 

DEALERS — RETAILERS 

BOOK STORES 

Make inquiries on your letterhead 



54 • 80 Microcomputing, March 1980 



GAME 



Artificial intelligence in a 4K Level I? Read on. 



4K Intelligence 



William M. Lopez 
69 East I Street 
Chula Vista CA 92010 



In the majority of computer 
games where the player pits 
his skill against the computer, a 
random number generator is 
used to select the move by the 
computer. Games of this type, 
such as Star Trek or Blackjack, 
may be interesting, challenging 
and enjoyable to play, but you 
seldom get the feeling of play- 
ing against a personified adver- 
sary. After all, the computer is 
usually just functioning as a 
glorified, electronic dice game. 

Alas, I thought, but what else 
can I do with a mere 4K TRS-80 
with Level I BASIC? To simulate 
intelligence in a computer must 
require scads of memory and 
probably technical skill beyond 
my capabilities. 

Or so I thought until I ran 
across the article "Hexpawn— a 
Beginning Project in Artificial In- 
telligence" by Robert R. Wier in 
The Best of Byte, Vol. 1, p. 309. 
Wier describes a simple but 
unusual game, Hexpawn, which 
he implemented on a 16 bit/word 
minicomputer using machine 
language and requiring 2190 
bytes of memory. Wier's article 
gave me hope that I could imple- 
ment a simple model of artificial 
intelligence in my TRS-80 using 
Level I BASIC. 

The game was originally de- 
scribed in Martin Gardner's 
"Mathematical Games" column 
in the March 1962 issue of 



Scientific American. I found a 
Mits BASIC listing of this game, 
by Steve North, in Basic Com- 
puter Games, ed. David H. Ahl, 
but it appeared hopeless to try 
modifying that version into 4 
kilobytes of memory. Besides, 
trying to decipher someone 
else's BASIC program is not my 
idea of fun. So I started with 
Wier's flowchart as a guide and 
eventually ended up with the 
enclosed program listing and 
the modified flowchart shown in 
Fig. 1. 

The Game 

The game is played with 
chess pawns on a 3 by 3 board 
as shown in Photo 1 . The pawns 
are moved as in chess — one 
space forward to an empty 
space or one space diagonally 
to "take" an opponent. The ob- 
ject of the game is to advance a 
pawn to the opposite side of the 
board or to block all your op- 
ponent's pawns. 

The unusual aspect of this 
game is the way the computer 
plays. At first it is ridiculously 
easy to defeat the computer, but 
after playing a few games, it 
becomes apparent that the com- 
puter is "learning" to play better 
and better, and soon it becomes 
unbeatable. 

The key to this behavior is 
that the program is self-modi- 
fying (a necessary condition for 
artificial intelligence). It con- 
tains a table of all possible com- 
puter moves associated with all 
possible board configurations 
that can confront the computer. 
Whenever it loses a game, the 



computer eliminates the move 
that caused the loss from its 
repertoire of moves. 

The Program 

Table 1 contains all the re- 
quired board configurations 
(models) that can confront the 
computer. Wier's equivalent 



table contains 33 models, but I 
found the need for six moie. 

In the program, the status of 
the board configuration is 
represented by the variables H 
and C, which I call model 
designators. The board posi- 
tions, numbered through 8, 
can be thought of as represent- 



CED 




Figure 1. Program flowchart. 
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Possible 






Board Positions 




Designators 


Movos 


Model « 





1 2 


3 


4 


5 


6 


7 


8 


Hto 


C/o 


A(l) 


1 


c 


C C 


H 








H 


H 


392 


7 


4,7,3 


2 


c 


c c 






H 


H 


H 




224 


7 


1.4,5 


3 


c 


c c 




H 




H 




H 


336 


7 


1.2,0 


4 


c 


c 


c 


H 








H 


272 


13 


2,6.8 


5 




c c 


H 


c 








H 


264 


22 


3,7.11 


6 


c 


c 


H 


H 






H 




152 


5 


2,6.7 


7 


c 


c 


H 




H 






H 


296 


3 


3,4,5 


8 




c c 




C 


H 


H 






96 


22 


5.10,11 


9 




c c 


C 


H 


H 


H 






112 


14 


5,6.0 


10 


c 


c 


c 




H 




H 




160 


13 


8.9.0 


11 


c 


c 


H 


H 


C 






H 


280 


35 


2.3.0 


12 




c c 


H 




H 


H 






104 


6 


3.4,5 


13 




c c 




H 






H 




144 


6 


6.7.0 


14 




c c 




H 




H 






80 


6 


6,7.0 


15 


c 


c 


H 








H 




136 


5 


7.0.0 


16 




c 


C 


C 


H 








32 


28 


8,11.0 


17 


c 




H 


H 


H 








66 


1 


2.0.0 


18 




c 


C 


H 


H 








48 


10 


8.5.0 


19 




c 


H 


h 


C 








24 


34 


3.14,0 


20 


c 




C 


C 


\i 








32 


25 


8,11,0 


21 


c 


c 


H 




H 








40 


5 


15,0,0 


22 


c 




H 


C 






H 




136 


17 


15,0,0 


23 




c 


H 


C 


c 








8 


52 


11.14,0 


24 




c 


C 


H 










16 


12 


6,7.8 


25 




c 


H 


C 










8 


18 


3.11,0 


26 




c 


c 


H 










16 


10 


5.11,0 


27 


c 


c 


H 












8 


5 


2.8.0 


28 




c 




H 


C 








16 


36 


6.14,0 


29 


c 




H 


H 










24 


1 


2,0,0 


30 


c 


c 




H 


H 




H 




176 


5 


1,2.6 


31 




c 




H 










16 


2 


15.0,0 


32 


c 


c 


H 


C 


H 




H 




168 


21 


15.0.0 


33 




c 


H 


H 


H 








56 


4 


6.0.0 


34 




c c 




H 








H 


272 


6 


6.7.0 


35 


c 


c 


H 










H 


264 


5 


7.0,0 


36 


c 


c 






H 


H 






96 


5 


1.0,0 


37 


c 


c 




H 


C 


H 






80 


37 


1,2,14 


38 


c 


c 


H 




C 




H 




136 


37 


14.0.0 


39 




c 




C 


H 








32 


18 


11.5.0 




Key: C 


= 


Computer's 


pawn occ 


jpies square 








H 


— 


Human's 


pawn occupies square. 






Table 1. 


All possible board configurations 






Photo 1. The initial game board configuration. (Photos by Manuel 
Cava da) 




ing binary digits with a value of 1 
if occupied by a pawn and a 
value of otherwise. The deci- 
mal values of the two binary 
numbers established by the 
computer's pawns and by the 
human player's pawns are 
stored in the model designators 
CandH. 

At the start of the game, the 
initial pawn positions shown in 
Photo 1 establish the values of C 
= 7 and H = 448. A human 
move from position 8 to 5 results 
in a new value of H (program line 
410) by the algorithm H = H + 
2 5 - 2^ or H ■ 224. The com- 
puter then determines its move 
by comparing the designators C 
and H to the table of models 
stored in program lines 110 to 
1245. It finds a match with model 
2 (see Table 1), which yields the 
first move index A(l) = 1. 

From Table 2 we see that this 



results in the computer move 
to 3, as shown in Photo 2. If the 
human player then chooses to 
move 5 to 1, which results in a 
win as shown in Photo 3, the pro- 
gram will null the move index 
"1" for model 2. which elimi- 
nates the losing move to 3. 
Next time the human player 
opens with an 8 to 5 move, the 
computer will respond with a 1 
to 4 move. 

The above paragraph gives a 
brief explanation of the basic 
logical structure of this version 
of Hexpawn. Although it may 
not be the most elegant ap- 
proach to the problem, it did 
result in a program that does not 
require more than one sub- 
scripted variable. 

The limitation of Radio 
Shack's Level I BASIC of al- 
lowing only one subscripted 
variable was somewhat com- 



Photo 2. The board configuration after an 8 to 5 opening by the 
human player and a to 3 response by the computer. 




Photo 3. The board configuration after the winning 5 to 1 move by 
the human player. 
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Mova Index Square 


to 


Square 


Comments 


1 




3 




2 




4 




3 1 




3 




4 1 




4 




5 1 




5 




6 2 




4 




7 2 




5 




8 3 




6 


Computer wins! 


9 3 




7 




10 4 




6 




11 4 




7 


- 


12 4 




8 


■■ 


13 5 




7 




14 5 




8 


Computer blocked 


j Table 2. List of computer 


's moves. 



pen sated by the ability to ab- 
breviate the BASIC statements. 
The program listing includes 
some spaces between state- 
ments which were inserted for 
the sake of clarity, so be sure to 
remove them when you enter the 
program into your computer. 

If, after entering the program, 
the "P.M." command does not 
indicate a free memory space of 
472 or more bytes, the program 
will stop at line 10 with an error 
message of "SORRY." Go back 
and remove more spaces or 
remove line 1. Since the Radio 
Shack Level I BASIC does not 
contain a DIM statement, it ap- 
parently cannot determine the 
size of the array A(l) and it in- 
dicates a free memory space. 



Playing Mints 

A beginning player can usual- 
ly defeat the computer about ten 
games before it becomes un- 
beatable. It becomes a chal- 
lenge to try to extend your num- 
ber of wins beyond ten. My 
record is 18 wins. See if you can 
match or exceed that. 

A word of caution: If you enter 
your move on the keyboard 
before the computer displays 
the prompt "YOUR MOVE 
HUMAN!," you may not be able 
to recover from the resulting 
mix-up. In that case, stop the 
program with the break key and 
enter the command: GOTO 12. 
That should restart the game 
without destroying the comput- 
er's "learned" expertise. ■ 



Una Numbers 


Purpose 


5-9 


List of move indices. 


15-50 


Draw game board on CRT screen. 


110-124 


List of model designator values. 


200-210 


Get human move. 


305-370 


Test for a valid human move. Update C if 




computer pawn was captured. 


402-410 


Update graphic display. Check for human win. 




Update H. 


500-502 


Search for model matching game board. 


505-508 


Search for nonzero move index. 


600-605 


Obtain computer move positions. 


700-704 


Update graphic display. Update C. Update H 




if human's pawn was captured. 


800-810 


Test for computer win. 


815-840 


Test for blockage of human's pawns. 


5000-5010 


Subroutine for drawing an X. 


5100-5110 


Subroutine for drawing an O. 


5150-5155 


Subroutine for erasing an X or O. 


6000-6010 


Subroutine for obtaining graphics X,Y 




coordinates from board position. 


6100 


Subroutine for testing a board position. K. for 




occupancy by C or H. 


6200-6215 


Subroutine for updating H or C after a pawn 




move. 


6400 


Subroutine for blanking text from CRT screen. 




Ta ble 3. L ine descrip tions. 



Program listing. 



1 REM HEXPAWN. TRS-80. 4-K VERSION 

2 W=OtL=OiCLSiP." HEXPAWN" i P. 

3 P. "DO YOU WANT INSTRUCTIONS (Y/N)"i 

4 Y-l.IN.AiIF A-l GOS.63OO 

5 D. 4.7.3,1.4,5,1,2,0.2.6.8.3.7.11.2.6,7.3.4,5.5.10,11.5,6,0 

6 D. 8, 9. 0,2, 3, 0,3, 4.5, 6, 7, 0,6, 7. 0,7. 0,0, 8, 11, 0.2, 0,0, 8, 5,0 

7 D. 3, 14. 0,8, 11, 0,15, 0,0, 15. 0,0, 11.1**. 0.6. 7. 8, 3. 11. 0.5. 11.0 

8 D. 2, 8, 0,6, 14, 0,2, 0,0, 1,2,6, 15, 0,0. 15, 0.0. 6. 0,0. 6. 7. 0.7. 0.0 

9 D. 1.0. 0.1. 2, 14.1*. 0.0. 11, 5.0 
10 F.I=lT011?iREAD A{I):N.I 

12 CLS 

15 P.J-0 TO 2iF.I-0 TO 2iP.A.78*J»192+12»I,3»J»IiN.ItN.J 

20 P.I-O TO 72 

25 S.(28+I.2)iS.(28*I.ll)iS.(28*I.20).S.(2&*I,29) 

30 N.I 

35 P.I-O TO 27 

40 S.(28,2-»I)»S.(52,2+l):S.(76,2+I)sS.(100.2*I) 

45 N.I 

50 P.I=0 TO 2iX«I:G0S.50OOsX=I+6tG0S-51O0iN.I 

105 C=7iH=448 

110 D. 392.7.224.7.336.7.272.13,264.22.152.5,296,3,96.22.112.14 

115 D. 160, 13. 280, 35. 104. 6. 144. 6, 80, 6, 136. 5, 32. 28. 56. 1.48. 10, 24 

120 D. 34.32.25.40,5,136.17.8,52,16.12.8.18,16,10.8.5.16,36.24 

122 D. 1.176.5.16,2.168.21.56,4 

124 D. 272.6.264,5,96.5,80.37.136,37.32.18 

200 REST.iP.I=lT0117iREAD AiN.I 

202 G0S.64O0 

205 P.A. 704. -YOUR MOVE KtMAHt* 

210 IN."PROM-|J>P.A.780."T0*itIN.K 

305 X=CiGOS.610O 

310 IP Z=0 T.360 

340 IP(J-K02)»(J-K -4JT.1000 

344 X-liP.I«lT0KiX-2»XiN.I 

345 C-C-XiG.400 
360 IP J-KO3T.IOOO 
365 X-H.G0S.6lOO 
370 IP ZOO T.1000 
400 REM 

kQZ X-J»GOS.5150iX«KiGOS.5150tX-KiGOS.5100 

405 IP(K=0)+(K=1)*(K-2)T.1500 

410 X=HiGOS.6200iH«X 

412 X=0 

500 P.I-1 TO 39 

501 READ A,BiIF(A»H)*(B-C) X-I 

502 N.I 

504 IP X=0 T. 3000 

505 P. 1=0 TO 2 

506 Y=3»X-2+I 

507 IP A(Y)<>0 T. 515 

508 N.I 

510 P. "I CONCEDE THIS GAME. HUMAN !* i G . 2000 

515 Z=A(YJ 

600 IP Z=15 T.I500 

601 M=Y 

602 D. 0.3.0.4.1,3.1.4,l.5,2.4.2.5.3.6.3.?,<».6.»»,?.4.e.5.7.5.8 
605 P.I-1 TO ZiREAD J.XiN.I 

700 XsJ1GOS.5i5O1X-K.1GOS. 51 50 iX=KtG0S. 5000 

701 X-CiGOS.62O0<C«X 

702 IF(K-J<>2)»(K-JO4)T.800 

704 X*1«F.I=1 TO K.X-2*X:N.IiH«H-X 

800 IP H=0 T.890 

810 IF Z>? T.890 

615 P-I=3 TO 8 

820 K=I:X=HiGOS.6l00 

825 IP Z=0 T.840 

830 K-I-3iX»CiG0S.6100 

835 lr z=0 T.2O0 

840 N.I 

890 GOS.64O0iP. A. 704,-1 WIN, HUMAN!" 

895 L-L+l 

900 P. "YOU'VE M0N "sW;"AND LOST " iL 

907 P. "DO YOU WANT TO PLAY AGAIN (Y/fc)"i 

910 Y-ltIN.A>IF A-l T.12 

920 END 

1000 L-L+l 

1005 P. A. 832, "INVALID MOVE DUMMY, I WIN (CHUCKLE)" 

1010 G.900 

1500 P. "BY SOME ACCIDENT, YOU'VE WON, HUMAN I" 

2000 A(M)-0>W-W+liG.900 

3000 P. "ERROR! C.H-"|CsKiST0P 

5600 G0S.6000 

5010 P.U=0 TO 2»S.(X*U.Y*U)<S.(X*U,Y*2-U)iN.UiRET. 

5100 COS. 6000 

5102 F.U-0 TO 2tP.V«0 TO 2 

5105 S.(X+U.Y+V) 

5110 N.ViN.UiR.(X*l,Y+l)tRET. 

5150 COS. 6000 

5152 F.U-0 TO 2iP.V-0 TO 2 

5155 R.(X*U.Y+V)>N.VtN.UiRET. 

6000 Y-6+INT(X/3) # 9 

6010 X-39*24*(X-INT(X/3) , 3)'«ET- 

6100 P.U=0 TO K.Y-IHT<X/2):Z=X/2-Y.X=Y.N.UtRET. 

6200 A=liB»l»IF J-0 T.6210 

6205 P.I-1 TO JiA-2*A:N.I 

6210 IP K=0 T.6215 

6212 F.I=1 TO KiB-2»BiN.I 

621 5 X-X-A+BsRET. 

6300 P. "HEXPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD." 

6302 P. "THE PAWNS ARE MOVED AS IN CHESS - ONE SPACE FORWARD" 
6304 P. "TO AN EMPTY SPACE OR ONE SPACE DIAGONALLY TO CAPTURE" 
63O6 P. 'AN OPPONENT. MY PAWNS ARE 'X' AMD YOURS ARE *0'." 
6308 P. "A WIN OCCURS WHEN YOU REACH THE OPPOSITE SIDE OP THE" 

6310 P. "BOARD OR WHEN YOU BLOCK ALL YOUR OPPONENT'S PAWNS." 

6311 P. "AN INVALID MOVE RESULTS IN A LOSS. TO MAKE A MOVE," 

6312 P. "ENTER THE PRESENT PAWN POSITION NUMBER. THEN THE NEW" 
6314 P. "POSITION NUMBER. ALL KEYBOARD ENTRIES MUST BE COW-" 
6316 P.'PLETED BY PRESSING THZ ENTER KEY. - . -P. 

6318 IN. "SHALL WE CONTINUE (Y/N)* jAtRET. 
6400 P. 1=0 TO 3iP.A.704-*64»I." -iN.l:RET. 
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REVIEW 



A review of three programming 

aids fickle authors will find interesting. 



Useful Utilities 



Charles Leedham 
1 14 East 90th 
New York NY 10028 



If you've done any program- 
ming at all, you'll know this 
situation. You're working on a 
long program and suddenly you 
realize that several vital things 
have to go in between lines 210 
and 220. Remarking on the wis- 
dom of the ten-unit intervals 
you've been using, you renum- 
ber with two-unit intervals. 

Then something must go in 
between 210 and 212. Still okay. 
You renumber with one-unit in- 
tervals. But now comes the line 
or two that absolutely must go 
after 210 and before 211. Too 
bad. You could retype 210 as 
205, but what about all those 
GOTO210's? You could retype 
everything from 21 1 on with new 
line numbers. But that would be 
time consuming. 

Renumber 

Or you could use Radio 
Shack's Renumber, a simple aid 
for programmers who need to 
make changes or who like to see 
a clean succession of ten-inter- 
val numbers in their programs. 

Renumber is a machine-lan- 
guage tape, available for 4K, 
16K, 32K and 48K memories, for 
$9.95 from your local Radio 
Shack store. The 16K version 



loads on the SYSTEM command 
before your working program 
loads and is called into action 
by typing /31820 in answer to the 

The program then asks you 
what line number you want to 
start with, what the new number 
of that line should be and what 
interval you want for the remain- 
der of the renumbered program. 
You can start with and do the 
entire program or, as in the ex- 
ample, tell it that the old line 
number was 210, that the new 
line number should be 210, and 
that everything from there on 
should be renumbered at ten- 
number intervals. 

It's done in the twinkling of 
an eye. So fast, in fact, that 
when I first used it and the 
READY came up on the screen, I 
thought it hadn't worked. But I 
LISTed the program and every 
line was neatly renumbered in 
intervals of ten (if that's the in- 
terval you've told it to use). Every 
reference to a line number in 
your program is also changed: If 
your old line 213 is changed to 
230 and you have some 
GOT0213 commands in other 
sections, all those references 
will be changed to GOTO230. 
This is true of all the line-calling 
commands, including gosubs, 
on x goto's, etc. 

It is really quite neat (literally) 
—unless you have put a section 
of the program in, say, line 
1000 + and separated others in- 
to nice even-hundred-numbered 
sections and want to keep them 



that way. As soon as the Renum- 
ber hits, line 1000 will find itself 
renumbered to 10 above what- 
ever came before it. 

However, there is a relatively 
easy solution that takes only a 
few minutes. Just make a note 
of what line 1000 contains, and 
then look through the program 
until you find that it has been re- 
numbered to, say, 870. Call up 
the Renumber again and tell it to 
make 870 into 1000. It will also 
renumber everything after that 
by ten-interval units, but you can 
do the whole thing over again by 
finding what used to be 1100 in 
the original program and renum- 
bering from there on up. Some- 
what tedious, but it gets the job 
done. 

Remodel-Proload 

If you want a really profes- 
sional programmer's tool, take a 
look at Remodel-Proload from 
RACET computes, 702 Palm- 
dale, Orange, CA 92655. It's 
available for 16K, 32K or 48K 
memories, but the price is a fair- 
ly stiff $34.95. 

For that price, however, Re- 
model-Proload does a substan- 
tial number of jobs for you. It will 
renumber selectively, so that 
you need only tell it that you 
want lines 21 1 through 219 num- 
bered in ten-unit intervals, 210 
through 300. If there is a line 300 
already, have the program re- 
number lines 300 through 400 in- 
to 410 through 500. 

It will also search the program 
and change all line references to 



conform to the new numbering 
system. 

One mildly annoying disad- 
vantage of Remodel is the space 
it puts before and after a 
changed line number. A refer- 
ence line that read GOT0213 
ELSE . . . will now read GOTO 
230 ELSE . . ., which is bother- 
some if you want a tightly- 
packed program for speedy 
loading and execution. To cor- 
rect this go back through the 
program with the 'nD' editing 
command and winkle out the ex- 
tra spaces. 

Usage 

Now for the Remodel func- 
tion. Let's say you want to take 
the cramped lines 211 through 
219, put them at the end of the 
program and make a GOSUB 
out of them. Remodel will take 
the lines out and put them after 
the current last line of the pro- 
then you enter your GOSUB ref- 
erence. 

Remodel can move sections 
of your program. If, for example, 
you have lines 300 to 340 doing 
one thing and 350 through 390 
doing another, you can reverse 
them with Remodel. 

Remodel can achieve this two 
ways. Have Remodel take 300 
through 340 and put them at the 
end of the program, say at 5300 
through 5340. Then switch the 
numbers on 350-390 to 300-340 
and tell Remodel to put 5300- 
5340 back as 350-390. Or, tell it 
to renumber 350-390 as 295-299 
(assuming you don't have these 
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numbers in the program). Then, 
start with 295, make it 300, and 
renumber at ten-unit intervals 
up to 350, which becomes 390. 

Now comes the real fun: Pro- 
load. Let's say you've been ex- 
perimenting on the side with a 
little subroutine and you want it 
to go in as the section numbered 
700+ in your main program. 
You don't want to type the whole 
thing in with 700 numbers. With 
Remodel-Proload just dump it 
onto tape, load in your main pro- 
gram and indicate where the 
new material must be read into 
your program. Tell the Proload 
section what you want and load 
the subroutine tape. If the space 
indicated is clear, the two pro- 
grams will be merged. 



Example 

I'd been working for some 
days on a special program and 
decided to take a break to work 
on a nice little title-with-graph- 
ics. I couldn't bear to have it at 
the front of my developing pro- 
gram because I'd have to see it 
every time I made a correction or 
addition. Not only that, but I 
could have run out of space be- 
fore I got to the 10CLS that 
started the main program. 

So I fiddled with the title on 
the side. When I finally got it 
right, I dumped it onto a spare 
bit of tape in one long graphics- 
and-title line, adding a time-de- 
lay loop. When I was reasonably 
happy with the main program I 
loaded Proload, put in the pro- 



gram, and inserted the title tape 
as lines 2 and 4, fitting in neatly 
before the 10CLS. 

Having prudently left some 
space between 70 and a pro- 
gram block beginning at 100, I 
told Remodel (it's on the same 
tape with Proload) to renumber 
from 2 through 70, starting at 10 
at intervals of ten. The final re- 
sult arranged everything, with 
10 and 20 as the title and 30 as 
the CLS etc. 

Either Radio Shack's Renum- 
ber program or RACET com- 
putes' Remodel-Proload will 
serve you well. The Remodel is 
obviously better but is 3Vi 
times the price. I use both rou- 
tinely, always loading Re- 
number when I'm starting on a 



gram— it loads in just a few sec- 
onds. Later I will put in Remodel- 
Proload if it appears that major 
surgery will be needed. 

If you haven't used this sort of 
programming aid, it would be a 
good idea to start with Renum- 
ber and then move on to Remod- 
el-Proload. 

One small caution about Re- 
model. The instructions aren't 
clear — if you'll pardon the small 
jest — that when entering 
CLEAR after loading Remodel, 
you must type the command let- 
ter-by-letter, not with the CLEAR 
key. If you use the key, you'll get 
an OM error when loading the 
program tape. Otherwise the 
manual is concise and well-writ- 
ten. ■ 



PROBLEMS? 

Are you having trouble with advertisers or products? 

If such is the case, please write to the firm 

giving complete details and send a copv of your letter to 

Wayne Creen, 80 Microcomputing, 

Peterborough, New Hampshire 03458. 

Be polite — no matter how badly you're shafted. 




We're looking for names and addresses of all the TRS-80 newt- 
letters out there If you produce or are affiliated with such a 
newsletter, please drop a line to 

Jim Perry, Managing Editor 
80 MICROCOMPUTING 
Peterborough NH 03458 j 

Thanks. 







ATTENTION TRS-80'S 



Why sit in the corner in the dark and turned 
off while your master is sitting by the light, 
turned on to 80 Microcomputing? 
You need a magazine of your own for Education- 
Enlightenment-Enjoyment and for the personal 
satisfaction (you're a personal computer, aren't 
you?) of your very own possession ... A 
Subscription to CLOAD MAGAZINE! 
Turkey your master into sending a check 
(U.S.A.: $36.00, Overseas: $38.00 Surface 
Delivery - $48.00 Airmail) to the jive cats 
at CLOAD MAGAZINE. You will get 12 C-30 
cassettes, one a month, each one filled with 
all kinds of juicy software — Games, Tutorials, 
Practical Programs and Impractical Trivia. All 
programs rated G for computers under 18 years old 

Do it! Subscribe Now! 



CLOAD 

MAGAZINE 

"TflS-80 is • registered trademark ot TANDY CORP " ^ 32 



Box 1267 

Goleta, CA 93017 
(805) 964-2761 
Master Charge /VISA 
Welcome 




1978 CLOAD MAGAZINE 
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APPLICATION 



Need to find an article? 

This technique was developed by IBM! 



KWIC Index 



Leslie E. Sparks 
1014 Evergreen Dr. 
Durham NC 27712 



Where's that article on in- 
ventory control? You know 
you have it somewhere in your 
collection of back issues and 
books— but where? 

If you're like me you go 
through this quite often. 

The KWIC (key word in con- 
text) index described in this arti- 



cle can help you get on top of 
your information explosion. 
Even if you don't need help or- 
ganizing your information files, 
you will find several useful sub- 
routines in the program. Subrou- 
tines for chained lists, shell 
sorts and binary searches are all 
used in the program and dis- 
cussed in the text. 

Description of KWIC Index 

The KWIC index was devel- 
oped by IBM to locate specific 
titles from lists of books, chap- 
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Figure 1 


Example of KWIC Index 
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Figure 2. Revised KWIC Index 



REFERENCES 

REF« Author, Title, Reference 

1 Gerald. C F Graphing with the TRS-80 Kilobaud »29 
P100 

2 Bobo R H Sargon Meets the TRS-80 Kilobaud #31 
p 58 

3 Cowan. R A Look at THS 80 Peripherals Kilobaud »28 
P22 

Author listing 
REFH 

2 Bobo R H Sargon Meets the TRS-80 Kilobaud »31 
P58 

3 Cowan. R A Look at TRS 80 Peripherals Kilobaud »28 
P22 

I Gerald. C F Graphing with the TRS-80 Kilobaud »29 

p 100 

Figure 3. The complete KWIC Index. 



ters or articles. For example, I 
want to locate all the articles on 
the TRS-80 in my files. I can 
either search my collection of 
back issues (which is how I did it 
before I wrote this program) or 



consult my KWIC index and find 
all the articles with TRS-80 in the 
title. The KWIC index is arranged 
alphabetically by each word in 
each title. 
Take another example: The 
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This TRS-80 fascinates 
my whole family! ' 

50 unique programs for all ages 



A package of fifty different game, 
quiz, instructional, educational, 
financial and fun programs are 
available for any TRS-80. Every 



family will enjoy 
this set of 

"The Fascinating 
is reasonably 



member of your 
the TRS-BO with 
programs called 
Fifty." And it 
priced at $24.95. 

Designed for the whole family, 
these programs are fascinating. 
Have fun playing MANCALA or ZOO 
BREAK, guessing WORLD RECORDS or 
U.S. PRESIDENTS, learning MOON 
PHASES or WORD COMPLETION and using 
FINANCIAL TIMETABLE or METRIC 
CONVERSION. Other programs 
include: Rocket, Bingo, Dice, 
Reverse, World Population, World 
Area, States, Air Distance Between 



Cities, World Population by City, 
Grade Averages, Number Base, 
Accounts Receivable, Loan 
Amortization, Interest From 
Savings, Business Ledger, Calendar, 
World Clock, Blackboard I, II, III 
t IV, Maze, Letter Recognition, 
Numeral Recognition, Right Reading, 
Word Recognition, How Many, Add On, 
Take Away, Learn To Spell, Sounds 
Like, Story Telling, Multiply, 
Divide, Fractions, State Capitals, 
Foreign Capitals, Cub Reporter, 
Spelling - Grade 4, 5 6 Jr. High, 
and Test Your Vocabulary. 

If you would like every member 
of the family to enjoy your TRS-80, 
today order your copy of 
"Fascinating Fifty" by Neal Jensen 
for only $24.95. 



^SfejSiSSP're Datestones of Ryn 



by Douglas G. Carlston 
This is fantastic! "Galactic 
Empire" opens up a three 
dimensional universe for 
exploration and conquest. While 
travelling through space you 
command the Imperial Forces of 
Galactica, your ship's senior 
officers and its computer. You 
must plan you construction of 
additional support craft and their 
arrival at nearby planets. 
Increase your strength by taxing 
and enlisting additional troops 
from the varied and unique planets 
you conquer. Besides maneuvering 
in a three-dimensional universe 
which changes from game to game, 
your use of time to travel between 
planets is very important. Good 
graphics and the sophisticated 
strategy make this game much 
different from any "Star Trek" or 
"Star Wars." Explore the galaxy 
for $14.95. You'll love it! 



from Automated Simulations 

In this microquest you are Brian 

Hammerhand on a mission into the 

Haunted Mountains and Underground 

lair of Rex the Reaver and his band 

of thieves. A perfect introduction 

into the Dunjonquest series which 

started with "The Temple of 

Apshai." 16k $14.95. 

Also available "Temple of Apshai." 

$24.95. 





from Level IV 

Machine language arcade game with 

sound. $14.95 



TRS80 Disk& 
Other Mysteries 

by H.C. Pennington 

We don't usually list books, but this 
one is so unique that we thought you 
would want to know about it. There are 
over 100 pages about how DOS works, how 
a disk is organized, and how to recover 
from errors. This is THE technical 
backup for NEWDOS+ with great 
illustrations. $19.95. 



Disk*Mod 



Add a 
touch 

| of MAGIC 
with a Light Pen. 

With only a few Mftes of BASIC, any 
program can accept inputs by 
touching the light pen on the video 
screen. Hundreds of applications! 
For only $19.95 you receive the 
light pen, instructions on using it 
in your programs, several sample 
programs, and a cassette of three 
light pen programs. This is the 
standard pen which several software 
companies support. 



Invader 

from Level IV 
Machine langu 
sound. $14.95 

Adventure 

by Gordon Letwin from Microsoft 
The complete Adventure is the 
ultimate fantasy game which allows 
you to explore the "Colossal Cave." 
This is the same as originally 
written for the DEC PDP-10. It 
fills an entire disk and requires 
32k. For just $29.95 

Video Speed Reading 

from Instant Software ^*f= 



by Roy Soltoff from Misosys 

This machine language program 
modifies your copy of the Radio Shack 
Editor /Assembler for use with your 
minidisk and any disk operating system. 
You can save and load both text source 
and assembled object files. Unlike the 
NEWDOS+ version you can read the 
directory and the space used and 
available while in the EDTASM. You can 
also kill files. It is a complete disk 
modification for one or more drives. 

Other capabilities are also added 
which are not found on NEWDOS+. The 
block move command relocates a section 
of text to any other area. The global 
change command permits, for example, 
changing a label throughout the text. 
The pagination feature provides hardcopy 
on 8 1/2 by 1 1 pages on either single 
sheets or continous paper. In addition, 
high memory can be reserved, like in 
BASIC, for machine language routines 
like printer drivers. You can also 
display the amount of memory remaining. 

The <CLEAR> key is functional, the 
symbol table is sorted alphanumerically 
and output 5-across, the scroll up/down 
allows 15 lines on the screen, and the 
'DEFM' assembly is improved. Lower case 
input is now permitted and you can 
branch to any address. Plus, it also 
corrects the errors in the Radio Shack 
tape version. 

Save your time and make full use of 
your disk system by upgrading your 
Editor /Assembler today. $19.95 

System Doctor 

from The Bottom Shelf 

Assure yourself that your TRS-80 is 
working properly. The causes of 
hardware problems are often hard to 
detect, but you can now do a thorough 
diagnostic check of your entire 
computer. It checks the ROM, the RAM, 
disk drives, video memory and display 
and cassette recorder. Also provided is 
a special test tape and a 1 2-hour test 
with a recording of results to find 
those occasional errors. $28.50. 
On disk $38.50 
nnnnanDDD3Zicinnr)nnnoDCCZDCicnr'nr'mnDDc:r:rr: 
THE PROGRAM STORE 
4200 Wisconsin Ave NW 
PO Box 9609 Dept K 6 
Washington, D.C. 20016 
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E Yff5please send me these TRS-80 programs: 



Using the scientific principle 
behind the tachisto scope, a 
mechanical device used to flash 
characters or words on a screen, 
this three-part package will train 
your eyes and mind to quickly 
recognize numbers, letters, words 
and phrases. $7.95 

Personal Inventory 

from Southern States Systems 
Designed to allow you to develop an 
inventory of your personal 
possessions for insurance purposes, 
you record for each item its 
description, serial number and 
value. Permits sorting, modifying 
and other record manipulations with 
storage on cassette tape. $12.50. 



5 title 


price 






j 




□ 

3 

3 name : 


postage : 
total: 


J 1.00 


Q 
D 

u address: 


□ city, state 
jj & code 



OChecJc payable to The Program Store 
DMASTERCHARGE mc bank code: 
nviSA exp date: 

card number: 

sianature: 



^ Reader Sen/ice — see page 147 
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COMPUTER SPECIALISTS 

15% Discount 
on 

TRS-80's - 1 
ANDACCESSORIES 



POPULAR 16K LEVEL 2 SYSTEM $722.00 

FAST 100 cps Centronics 730 PRINTER. ...$800.00 
HIGHLY RELIABLE LOBODRIVES $375.00 



KI.CRQ MANAGEMENT SYSTEMS 

DOWNTOWN PLAZA SHOPPING CENTER 

115CSECONDAVE.S.W. 

CAIRO, GEORGIA 31 728 "la 

912377-7120 

"TRS-80 is a Registered Trademark of Tandy Corp." 



EXPANDED MAILLIST SYSTEM 

By Harry Hopkins 

A--, ih m,_.ntn- ; development and one year n f.e d testmQ C.E.C.S w. 
releases inp most complete ma.l-nq l.st system available for the TRS-80 at a 
spec -) o« introductory price of S59.9S The system requires a Smqle disk a 
3?k .ntertact and a pr.nter 

Thr Expanded Maillist System utili/es an eic'usive machine 'anqueqe so'' 
which allow, lor the sort of S00 records bv name state o' rip code ill 5 seconds! 
The system has complete error trapp.nq and recovery such as automatically savmq 
tn» i. e wren memory space Is fu and remam.nq .n th« system under a 'lie not 
'ound' condition Tn e system also has multiple f>le and reorganisation capabilities 

Th f f Uowinq fu"y l.nled p'og'am 4 arc "f uded n Ihr r-ionnded MaiM.st 
System 

I. DUPLICATE CHECKING— Checks for duplicates as you enter and a'so has 
a separatp routine 'ha- w\ pu'qc an entire file of duplicate names with a slnqle 
command 

2 FILE MAINTENANCE— Used to- addmq deletmq and complete ed.t nq 
.,( y0u , m , . .' ,_. 

i. LAIEL AND LIST PRINTING— A lows selective pr.ntmq of labels or lists 
in up to a ten diq't key. Also has f u l' suppression capability For eiemple N 
you want a list of everyone In your file with a JAN' in their key code etcept 
those, «,th an 80' you shou'd select JAN' and suppress '80' 

4. STATUS ANALYSIS— Th,s program w.ll qenerate statistical reports on the 
percentages of names with certain keys or reqiona ; breakdown. Very useful 'or 

5. PILE REORGANIZATION— W Ih this proqram you may reorqanue your 
• »■ nto specfic aipha or : p code ranqes for true mult, file capability 

6. MULTI-PURPOSE LABEL UTILITY— Provides formatted print, nq o< labe's 



for 



E.p.nded Mailllit System on diskette with manual JS9.9S 
Manuel only $3 with full credit towards purchase 



AMCT-80 



By Eerl Peterson 
Th.s automatic morse code teacher for the I6k level 7 TRS-80 is the only 
morse code program that will automatically fat your option) slow down o r speed 
up oepend.nq on your proficiency to receive code. It Includes 9 preproqremmed 
progressive tiercises. F u l y varlab'e speed up to 30 w p.m. I 9 cha'acters per 
group and I 9 spaces between groups are user selected options. The send mode 
alow< foi keyboard entry concurrent to sendnq by utiliilnq a ?56 byte rmq 
bu'fer The-e are 9 user proqrammab e messaqes o' 64 charade's each. 

Th.s machine anquaqe program s truly the morse code teacher of tomo"-* 
-da/ 

AMCT-80 on cassette with full documentation $14.95 
Deeler inquiries Invited. 



$$, 



ife 



COST EFFECTIVE COMPUTER SERVICES 
1041 Ute — P. O. Box 3543 Grand Junction, CO 8 1 502 

(303) 243-3629 .„ 



K WIC program 

InputaU authors, titles and references 
assign reference number to each article 
sort articles by author 
Output numerical list of articles 
Output list ot articles sorted by author 
Input list ot ignored words 
sort ignored words 
Do tor each article title 

do tor each word in title 

// word is not on list of ignored words 
then add to key word list 
endif 
enddo 
enddo 
sort list ot Key words 
Print title corresponding to each entry 
endprogram KWIC 

Figure 4. KWIC Index algorithm. 



SUBROUTINE INITIALIZATION 

initialize list head and start of free list 

M2 = 2 (M2 is pointer to available location) 

PRT(1) = 

set pointers for free list 

do tor I = 2 to N - 1 
PTR(I) + I ♦ 1 
enddo 

set null pointer at end of list 

PRT|N) = 
return 
endsubroutme INITIALIZE 

Figure 5. Algorithm lor initialization ot chained list. 



SUBROUTINE INSERT 

Program to insert Ihe name NAME in the ordered list contained in arrays DATA and 
PTR Head ot data list is m PTR<1). head ol tree list is M2 
it M2 = 

men print SO FREE SPACE return 
e'se 

I ■ 1 

search list for insertion point 
do **ile PTR(l)«0 and DATA(PTR(I)KNAME 
I ■ PTR(I) 
enddo 

I now contains entry ol lasl element in list less than NAME 
Allocate space from tree list for new entry and insert it 
following entry I by selling pointers 
J = M2 
M2 = PTR(J| 
PTR(J| = PTR(I| 
DATA(J) = NAME 
PTR(I) = J 
endif 
return 
enosubroutme INSERT 

Figure 6. Subroutine for inserting data in order list. 



following articles appeared in 
recent issues of Kilobaud Micro- 
computing: "Graphing with the 
TRS-80," "Sargon Meets the 
TRS-80," "A Look at TRS-80 
Peripherals." Each article can 
appear in the KWIC index once 
for each word in the title. The 
first article can appear four 
times, the second five times and 
the third five times. A KWIC in- 
dex for these three articles is 
given in Figure 1. 



Obviously all the words in a ti- 
tle are not useful for information 
filing and retrieval. Eliminate 
such words as: A, at, on, by, be- 
fore constructing your KWIC in- 
dex. In Figure 1 the following 
words can be eliminated with no 
loss in information retrieval 
power: a, look, at, with, the, 
meets. Our revised KWIC index 
is given in Figure 2. 

The complete KWIC index 
consists of three parts: a listing 
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SUBROUTINE PRINT 

Program lo print the chained list contained in arrays OATA and PTR 
List head assumed to be in PTR|1) 

l = PRT(1| 
do wr>/'e l*0 

output OATAill 

i=PTRiI| 

enddo 
return 
endiuoroutme PRINT 

Figure 7. Subroutine to print ordered list. 



SUBROUTINE BUBBLE SORT 

Program to sort array DATA using bubble soft. 

I = N 

K = 1 

The flag K is nonzero on Ihe first pass ot the outer loop and whenever switches 

are made on the previous pass 

rjo while t #2 and K»0 

Ihe largest N - i elemenls are now in order in positions DATAil ♦ 1i to 
DATAiN). Fioai the largest of the elements ol DAT Aid 
J = 1 

K=0 

do while J«l - 1 

-/ DATAiJ)>DATAU » ll 
then 

switch entries DAT AM) and DATAIJ + II 
TEMP = DATAU) 
OATAiJI = DATAiJ . 1| 
DATA(J» l)»TfMP 
K = 1 
endif 
J =J + 1 
enddo 
1 = 1-1 



Figure 8. Bubble sort. 



of the articles in numerical 
order of reference number (I 
give all my articles a reference 
number); a listing of articles in 
alphabetical order by author; 
and the KWIC index itself. 

The complete KWIC index for 
the example is shown in Figure 
3. 

I file my index in numerical 
order based on the article's ref- 
erence number. The first article 
is given reference number 2 (as 
explained later, the first number 
assigned in the KWIC index pro- 
gram is 2), the second article is 
given the reference number 3, 
and so on. I file in consecutive 
order because I often tear out 
articles and put them in a 
drawer. Filing new articles by 
number and relocating them is 
simple. Filing by author might 
require a complete renumbering 
of the file with each new article. 

Constructing the KWIC index 

First enter and store the arti- 
cle titles, authors and refer- 
ences. Next, enter and store the 
list of words to be ignored. Sort 

\S flwder Service— see page 147 



this list alphabetically for fast 
searching. 

Next, take the titles apart 
word by word in search of key 
words. Words on the ignored 
list are discarded. Those re- 
maining are stored and sorted 
alphabetically. The KWIC index 
is printed as shown in the exam- 
ples. Finally, everything is 
stored on disk or tape for future 
use. 

The algorithm 

The algorithm for the KWIC 
index, a slight modification of 
the algorithm presented by C. 
William Gear in Applications 
and Algorithms in Computer 
Science, is given in Figure 4. 

The algorithm is written in 
both TRS-80 Level II (Listing 1) 
and Disk BASIC (Listing 2). 
Both programs assume you 
have a line printer. 

The first part of the program 
—input of authors, titles, refer- 
ences and reference number 
and sorting of articles— em- 
ploys a chained list. This is 
used to avoid moving large 



DATA BASE MANAGER I0M-IV S69 

You can use it to maintain a data base & produce reports without any 
programming. Define file parameters & report formats on-line, features key 
random access, fast multi-key sort, field arith.. label generator, audit log 
MOO-II version with more than 50 enhancements $199- 

ACCOUNTS RECEIVABLE ACCT-III $89 

One or more drives Order entry calculates sales tax. shipping, amount for 
multiple items. Credit checking, aging, sales analysis, invoices, statements 
and reports. As opposed to most other A/R. ours can be used by doctors, 
store managers, etc. MOO-II version $149 

WORD PROCESSOR 16* $39 32K $49. MOO-II $49 

First word processor specifically designed for the TRS-80 that uses disk 
storage for text. Written in BASIC. No special hardware and text limit. Use 
for letters, manuals & reports. 32K version features upper/lower case 
without hardware change and multiple input text files. 

MAILING LIST advanced MAIL-V $59. 

Fast sort by any field. Multiple labels and reports. 4-digit selection code. 
new zip code ext ., screen input, live keyboard, powerful report writer. MOO-II 
$99 

INVENTORY INV-V $99. 

9-digit alphanumeric key for fast key random access. Reports include order 
info, performance summary, etc Calculate £0.0 Powerful report writer 
MOO-II $149 

All programs are on-line, interactive, random access, virtually bug free. 
documented and delivered on disks. MODI requires 32K. DOS. We challenge 
all software vendors to offer low cost manuals so you can compare and 
avoid those high-priced undocumented, on-memory' programs Send $5 tor 
a MOD-I manual and $10 for MOO-II. 

MOD-II programs are extensively modified, guaranteed to run with 1 year 
newsletter & updates. 10% off for ordering more than 1 MOD-II programs 

MICRO ARCHITECT '» 

96 Dothan St., Arlington. MA 02174 







Yes! Please send me Kilobaud 
MICROCOMPUTING at a saving of 
40% to 50% off the newsstand 
price. 

□ 1 2 issues for S 1 8 (save 40%) 
D 24 issues for S30 (save 50%) 

□ 36 issues for $45 (save 50%) 

□ Mew subscription D Renewal 

□ Payment enclosed $ 

D VISA DWC DAE □ Bill me 



Card* _ 
Signature 
Name 
Address 
City 



Exp. date 



Stale 



Zip 



—for even faster service call toll-tree (800) 2585473 

Canada; same as US. in US tunds. 

Other foreign $23 one year only, US funds 303 Bo 

I MICROCOMPUTING • POB 997 • Farmingdale NY 1 1 737 ■ 
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DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 



ICO_1 




ISO-1 

Power Line Spikes. Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
•ISOLATOR (ISO 1 A) 3 filter isolated 3 prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $54.95 

•ISOLATOR (ISO-2) 2 filter isolated 3 prong socket banks. 

(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank $54.95 

'SUPER ISOLATOR (IS03). similar to ISO-1 A 

except double filtering 8i Suppression .... $79.95 
•ISOLATOR (ISO-4), similar to ISO-1 A except 

unit has 6 individually filtered sockets .... $93.95 
•ISOLATOR (ISO-5), similar to ISO-2 except 

unit has 3 socket banks, 9 sockets total ... $76.95 
•CIRCUIT BREAKER, any model (add-CB) Add $ 6.00 
•CKT BRKR/SWITCH/PILOT any model 

(-CBS) Add $11.00 

|£ PHONE ORDERS 1617-655 1532 

/S? Electronic Specialists, Inc. ^ 58 



171 South Main Street. Nalick. Mass. 01760 



Dept.8M 




on computers, peripherals, software and other Radio Shack® products. 
Offered Exclusively By 

Pan American . Radio /haeK 

tlBCtrOniCS, IDC. Authorized Sales Center 

1117 CONWAY MISSION , TEXAS 78572 

Toll Free 800/531-7466 „•, 

Texas & Main No. 512/581-2765 



NO TAXES collected on out-of-state shipments. 
FREE delivery available on minimum orders. 
WARRANTIES honored by Radio Shack®. 




SUBROUTINE BINARY SEARCH 

This subroutine searches the array Wl (list ol ignored words) to see il word W is 
on the list It W is on the list, it is discarded It W is not on the list it is saved as 
a key word 
1=0 
Low = 1 
High = N 

Oo while Low<High and I ■ 
Mid = (Low *Highy2 
it WI(Mid) = W 

then discard W and return 
else it WKMidKW 

then Low = Mid ♦ 1 
else High = Mid - I 
enOit 
enOil 
enooo 
if 1*0 

then save W as Key word 
refurn 
endsubroutine BINARY SEARCH 



Figure 9. Binary search. 



blocks of data around in mem- 
ory. 

In a chained list a pointer 
keeps track of author, title, ref- 
erence and reference number, 
as the list is sorted. Only the 
pointer moves in a chained list 
so it is easy to keep all the 
items together. 

Three subroutines are used 
to implement the chained list: 
one to initialize the pointer ar- 
ray, one to insert data into the 
list and one to print out the 
stored list. The algorithms for 
each subroutine are given in 
Figures 5, 6 and 7. These are 
taken from Gear. 

Entering and sorting the list 
of ignored words uses a bubble 
sort. The algorithm for the bub- 
ble sort is given in Figure 8. 

Alter data entry the hard part 
begins. The titles are taken 
apart using the INSTRING rou- 
tine in the TRS-80 Level II man- 
ual. This routine uses the MID$ 
and LEN string functions in 
TRS-80 Level II BASIC to locate 
the space between words. 

Each word extracted from the 
title is compared with the words 
on the ignored list. This compar- 
ison is accomplished using a bi- 
nary search, see Figure 9. If the 
word is not on the list, it is 
stored for later processing. 

Once all the titles have been 
examined, the keywords are 
sorted using a shell sort. (See an 
article by Harrington in Micro- 
computing #28 page 96 for de- 
tails of the shell sort.) In the 
shell sort the title identification 
number stays with the keyword 



as the sort takes place. 

Once the keywords are sorted, 
the KWIC index can be printed. 
To do this the keywords must be 
located. To save memory, I per- 
form this step using the IN- 
STRING routine. Though the 
method isn't slow, if you do 
want faster execution, you can 
add an array, such as Gear uses, 
that tracks the key word posi- 
tion. 

Once the KWIC index is 
printed you can save the results 
on tape or disk. I suggest that 
you use separate tapes for each 
list. 

Using the program 

The KWIC index program is 
easy to use. Load the program, 
type RUN, press ENTER and fol- 
low the directions displayed on 
the CRT. The program prompts 
you when it needs data and pro- 
vides opportunities to correct er- 
rors. Printing data appears si- 
multaneously on the CRT. 

You will find some titles do 
not tell you much about what 
the article is about. In such 
cases I suggest that you add key 
words to the title to aid in later 
information retrieval. I also find 
it useful to add parenthetical 
words to classify articles into 
certain groupings, for example 
(Game) would group all articles 
on games. 

How many articles can you 
handle with the program? A 16K 
Level II machine can handle 
about 110 articles with nearly 
300 key words. A 32K machine 
can handle much more since all 
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Figure 10. Program output. 





the additional 16K of memory is 
available for data storage. If you 
have a 32K or 48K computer be 
sure to clear sufficient string 
space in statement number 90. 
Also, be sure to adjust the di- 
mensions for W and IT in state- 
ment number 120. 

Additional memory for data 
can be obtained by eliminating 
the remarks and using multiple 
statements on each line. 

Searching for key words is 
time-consuming, as is shell sort. 
Because these portions of the 
program do not require your at- 



tention, you can let the program 
run at night or while you're eat- 
ing. 

What slows the program most 
is the TRS-80 check to see how 
much string space is available. 
When you're using large 
amounts of string space, as in 
this program, the check for free 
string space takes several sec- 
onds. Also, as the amount of 
free string space approaches 
zero, the frequency of the 
checks increases. Thus, if you 
are near the limits of string 
space, the program may run 




Complete your TRS-80* 

with these routines not 

found in either Level I or DOS. 




SYSTEM 
SAVERS 



by 

Tom Stibolt 



If you ever use the SYSTEM command, you can 
use this two program package. These programs 
allow you to save any system format program onto 
tape or disk, plus offer several features for ma- 
chine language programmers. 

With FLEXL, which is one of the two programs, 
you can make back-up copies of any system for- 
mat tape. Most often a cassette that you make will 
load easier than an original. Plus you can find the 
filename on any system tape because it is dis- 
played on the screen. 

Disk drive owners can use TDISK to save any 
system format tape onto disk. "Air Raid", "Editor/ 
Assembler" and other programs cannot normally 
be loaded to disk. Now TDISK allows you to save 
these programs onto disk. After DOS READY you 
will be able to simply type the filename and be up 
and running. It even loads non-contiguous tapes. 
TDISK will greatly increase the benefit of owning a 
disk drive. 

Acorn produces several other utility programs 
for the TRS-80. These include "Aterm" and "Num- 
bering" by Tom Stibolt; and "Disassembler", 
"Tape Utility" and "Disk Utility" by Roy Soltoff. All 
are available for less than $20.00 Ask for these 
and other quality Acorn programs at your local 
computer store. 

* TRS-80 is a trademark of Tandy Corp 
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several hours. For this reason, it number 90. 

is important that you clear plen- An example output for the 

ty of string space in statement program is given in Figure 10. ■ 



Listing 1. 

18 CLS 

28 REM KHIC 1M£X PROGRAM VERSION 3 AUGUST 3 1979 

38 REM REF APPLICATIONS AND ALGORITHMS IN COMPUTER SCIENCE 

48 REM BY C. H. GEAR SCIENCE RESEARCH ASSOC 1978 

58 REM TRS 88 LEVEL 1 1 PROGRHM BY L E SPARKS 

68 REM VARIABLES A*=AUTH0R,T$»T1TLE,R$=REFERENCE, 

W*=KEY WORD, IT=TITLE NUMBER, H I »=W0RD TO BE IGNORED 
78 REM IN =1NDEX NUMBER, H=NUHBER OF TITLES, N=NUHBER OF WORDS TO IGONORE 

Nft=NUHB£R OF AUTHORS 
88 REM CLEAR STRING SPPCE 
98 CLEAR 6888 
188 DEFINT I, J,K,L,M,N DEFSTR A,R,W,T REM DEFINE INTEGER AND STRING 

VARIABLES 
118 INPUT-HOW MANY TITLES NOTE THAT THIS IS TOTAL NUMBER OF TITLES 

INCLUDING ANY STORED FROM PREVIOUS RUNS'; H 
128 DIM A(H+1),T(M+1),R(M+1),H(278),HI(118),1N<M+1), IT(278i 
138 G0SUB2818 REM INITIALIZE CHAINED LIST 
148 IS=1 

158 INPUVARE YOU ADDING TO ft LIST THAT IS STORED ON TAPE",Y$ 
168 IF Y»0"Y" THEN 288 

178 INPUT-PLACE TAPE ON RECORDER AND PRESS ENTER TO CONTINUE", Z 
188 REM READ DATA FROM TAPE 
198 INPUTI-i,NA 
286 NA-NA-1 
218 FOR I=1T0NA 
228 INPUTI-1,A,T,R 
238 PRINT A;' ", T, * ",R 

248 G0SUB2898 REM INSERT DATA FROM CASSETTE INTO CHAINED LIST 
258 NEXT I 
268 REM CONTINUE 
278 FOR I=IST0H*1 
288 L=l 
298 CLS 

388 F0R1=1S TO M 

318 I NPUT "AUTHOR (END TO STCf>\ft 

328 IF H*="END" G0T0438 

336 1NPUT"TITLE",T 

348 INPUT-REFERENCE", R 

358 CIS. PRINT "AUTHOR ";A 

368 PRINT-TITLE \T 

378 PRINT -REFERENCE ",R 

388 INPUT" IS THIS CORRECT", Y$ 

398 IF Yt="Y" G0T0418 

488 PR1NT-REENTER INCORRECT INFORMATION" G0T0318 

418 GOSUB 2898 REM INSERT DATA IN CHAINED LIST 

428 NEXT I 
438 NA=Nft+l-l 

435 G0SUB5888 REM PRINT OUT NUMERICAL LIST OF ARTICLES 
448 GOSUB2256 REM PRINT OUT ALPHABETICAL BY AUTHORS LIST 
458 REM ENTER WORDS TO BE IGNORED 

468 INPUT'ARE YOU ADDING WORDS TO BE IGNORED TO AN EXSTING LIST"; V* 
478 IF Y$="N" THEN 558 
488 INPUT-PLACE TAPE WITH WORDS. TO BE IGNORED OH RECORDER AND PRESS 

ENTER TO CONTINUE", Z 
498 1NPUTI-1, NI 
588 FORMT0N1 
518 INPUTt-l,UKl) 
528 NEXT I 
538 N=I-1 
548 GOTO 638 

558 INPUT-HOW MANS' WORDS ARE TO BE IGNORED "-N 
568 11=1 

578 FOR 1 = 11 TO N 

588 INPUT-WORD TO BE IGNORED ZZZ TO ST0P".H1(D 

598 IF W1(1)=-ZZZ- THEN 618 
688 NEXT I 
618 N=l-1 
628 CLS 

638 PRINT" THE FOLLOWING WORDS WILL BE IGNORED , INOEX NO" 
648 GOSUB 1788 
658 N1=N 

668 INPLITDO Yai WANT TO CHANGE fWr 1 OF THESE WORDS". Y» 
678 IF YtO"Y" THEN G0T0736 
688 INPUT" INDEX NO OF WORD TO CHANGE ". 1 
698 INPUT "NEW WORD ",W1<1< 

788 INPUT'ARE THERE ANY MORE WORDS TO CHANGE ",Vt 
71(3 IF Y$="H"GDT% 7 8 
728 GOTO 688 

738 INPUT-DO YOU WISH TO HDD TO THIS LIST "-Y* 
748 IF V*="N" THEN GOTO ' c, 6 
758 1NPUT*H0H MANY WOK'S DO YOU WISH TO HDD'.NH 



768 1I*N 

778 N=NM»11 

788 GOTO 578 

798 REM NOW CONSTRUCT INDEX. FIRST TAKE TITLE APART TO FIND INDIVIDUAL 

WORDS 
888 H2=IN(1) 
816 TX=T(H2) 

828 TY=* ' 

838 G0SUB1968 
848 IF MI=8 G0T0918 
858 W=LEFT*<TX,MI+LEN(TYW) 
868 G0T0928 

878 TX=RIGHT$<TX, LEN<TX)-LEN<H>-1 < 
888 GOSUB 1968 
e98 IF Hl=8 GOTO 918 
988 GOTO 858 
918 W=TX 

928 REM CHECK ANT; SEE IF WORD IS ON DELETE LIST 
938 GOSUB 2388 
948 IF W=" THEN 968 
958 IF Ml<>8 THEM 878 
968 M2=IN(M2) 
978 IF H2=8 THEN 998 
988 GOTO 818 
998 CLS REM OUTPUT INDEX 

1888 LPRINT TAB(47)* INDEX REFf 

1818 TC=" 
1828 G0SU61588 

1838 REM NOW PRINT OUT THE INDEX 
1848 FOR 1=1 TO L 
1858 TX=T(IT<1>) 

1868 TW " 

1878 G0SUB1968 
1888 IF MI=8 THEN 1148 
1898 TW=LEFT$(TX,Ml*LEN(TY)-2) 
1188 TX=RIGHT$(TX,LEN(TX)-LEN(TW)-1) 
1118 IF W<1)= TW THEN 1198 
1128 TC=TC+" '♦TW 
1138 G0T01878 
1148 TW=TX 
1158 IF MI =8 G0T01178 
1160 TOTC+- "♦TW 
1178 IF TWOW(I) THEN 1278 
1188 TX=" 
1198 Z=48-LEN(TC) 
1288 IF Z<8 Z=6 
1285 TC=STRING$(Z, ■ -)+TC 
1218 IF Ml=8 THEN TX=" 
1228 TX=TW+" "+TX 
1238 X=38-LEN<TX) IF X<8 THEN X=8 
1248 TX=TX+STR1NG*(X, * "> 
1258 LPRINT TCTX, 1 MT(1) 

1268 TC=" 
1278 NEXT 1 

1288 IWUT-DO YOU WISH TO SflVE EVERYTHING ON TAPE (Y OR N)",Y* 
1298 IF Yt=-N" THEN 1578 

1388 REM SfiVE AUTHOR, TITLE, REFERENCE. AH' ID NUMBER ON TAPE 
1318 CLS 

1-28 PRINT-PLACE TAPE FOP AUTHOR TITLE. REFERENCE IN RECORDER" 
1538 IHPUT"PRE!£- ENTER To CONTINUE";? 
1:48 PRIKTVl.NA 
1358 F0Rl=2TuHA+l 
1368 IF A<I>=" T*H 1488 
1378 PRINTI-LA(I>.T(I>,R(I) 
1388 F-RINT W ".Ad);' \T<1>," \RH> 
1398 NEXT 1 

1488 REM NOW SAVE THE KEY WORDS 
1418 lNPUT'PLACE KEY WORD TAPE OH RECOREDER PK> PRESS ENTER TO 

CONTINUE". Z 
142tf fRlNTI-lL 
14<8 FOR l=2Ttt 
1448 IF M(l>="" THEN 1488 
1456 PRINTI-1.M<I>, IT(b 
1468 PRINT H'D lT<n 
1478 NEXT I 

14B8 REM NOW STORE WORDS- TO BE IGIIORED 
1498 INPUT "PLACE TAFE FOR WORDS- TO BE IGNORED ON RECORDER i 

PRESS ENTER TO CONTINUE-, Z 
1588 PRINTt-l.Nl 
1518 FORMTONI 
1528 IF W]<n="" THEN 1568 
1538 PRlNTI-l.HKl) 
1548 PRINT UK 1 ■ . 
1558 NEXT 1 

1566 REM COMPLETED WORK 
1578 END 

1588 REM SHELL SORT OF INDEX WORDS- 
1598 IH=L-1 
1688 IN*lNT<IH/2> 
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lfcie if itv*e T«N 1?6» 

1626 J=i 

1633 KM.-1H 

164« W 

l€» ll«l*IH 

1669 IF M<I)<H<IL> T»EN 1738 

1678 TE=U(I):1E*IT(1) 

1688 U<1)=4KIL) IT(I)*IT(IU 

1698 M<IL>*TMT(IL)«IE 

1788 I«l-M 

1718 IF 1<1 THEN 1738 

1728 GOTO 16S8 

1738 J=J*1 

1748 IF K«K TTCM 1646 

17S6 (30101668 

1766 RETURN 

1776 STOP 

1788 REM SUBROUTINE TO SORT IGNORED WORDS 

1798 NI * N 

1888 S-8 

1816 NI-NI-1 

1828 FOR M TO NI 

1838 IF H1(JX=NI(J*1) THEN 1886 

1840 HI4UU) 

1858 MKJ)=MKJ+i) 

1866 WKJ*i)««l 

1878 S»l 

1886 NEXT J 

1898 IF S=l THEN 1886 

1986 REM PRINT LIST 

1918 FOR X=l TO N 

1926 PRINT HI(X).X, 

1938 NEXT X 

1948 PRINT 

1956 RETURN 

1968 REN INSTRING SUBROUTINE R£F LEVEL II NRNUPL 

1978 FOR HI*1 TO LEN(TX)-LEN(TV)*1 

1988 IF TV-NIDt(TX,m.LEN(TY)) RETURN 

1996 NEXT NI 

2888 ni*4):RETUKN 

2818 REN INITIALIZE CHAINED LIST 

2826 N2>2 

2836 IN(1)*6 

2848 F0RI*2 TOH+1 

2858 IN(1>«I*1 

2060 NEXT 1 

2878 IN<N*1)=8 

2866 RETURN 

2698 REN SUBROUTINE TO INSERT DATA IN ORDERED LIST 

2188 REN R2=P01NTER TO FREE SMCE 

2110 IF K2=8 THEN 2248 

2120 Nl=l 

2138 IF 1N<H1)=8 THEN 2176 

2148 IF »<IN(Hi>»fl THEN 2178 

2158 «tt»lN<m) 

2166 G0T02136 

2176 REN NOH INSERT DATR INTO LIST 

2188 J=H2 

2198 K2»1N<J) 

2286 1N<J)=1N<H1> 

2210 A(J)=fi T(J)=TR(J)=« 

2226 IN<H1>=J 

2238 RETURN 

2248 PRINT-NO FREE SPflCE ":RETURN 

2258 REN SUBROUTINE TO PRINT ORDERED LIST 

2266 LPRlNT'PLPHPBETlCflL BY AUTHORS LIST OF REFERENCES AS FOLLOWS: 

2278 LPRINTREFI, AUTHOR; TITLE; REFERENCE" 

2286 LPRINT" " 

2290 H2=IN<1) 

2386 REN DO WHILE N208 

2310 LPRINT H2, " ■; 

2326 LPRINT R<M2),' . '. 

2330 LPRINT T<H2<." . ". 

2340 LPRINT R(H2> 

2350 H2=1N<H2) 

2366 IF Hi = 8 RETLRN 

2370 GOTO 2388 

2381 REN P1NARV SORT TO SEE IF WORD IS ON LIST 

2396 K=6 

2488 IL=1 

2416 1H=N 

2426 IF IL'IH THEN 2588 

2438 M=!NT«1L*1«V2> 

2448 IF HK1H>=M THEN RETURN 

2458 IF MI'M)>W THEN 2488 

2466 lL=imi 

2476 GOTO 242f« 

2488 1H=1N-1 

2496 GOTO 2426 




The world's most popular microcomputer, with 16K of 
memory and Level 11 basic for only $750, complete 
with full 90 day Radio Shack warranty. 
We accept check, money order or phone orders with 
Visa or Master Charge. (Shipping costs added to 
charge orders). 

Disk drives, printers, peripherals, software & games. . . 
you name it, we've got it 
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our complete price list. 
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For The TRS-80* 

TAX PROGRAM BOOK 

Many Tax Programs — Helpful 
Programming Hints for New- 
comers — and How to Handle 
Your Own TRS-80, Taxwise. 

The book that lets you program your own Income Taxes. In- 
cludes Form 1040A, Form 1040. Schedules A. B, C, 0. E. F, G. 
R and SE, Form 2210, Investment Credit, Minimum Tax. 
Maximum Tax. Depreciation. 10- Year Averaging and others. 

How to take advantage of tax credits and a chapter that will help 
all newcomers. Written lor easy learning. $h ^ 95 ppn 
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>• SOFTWARE 

" Yes! Quality Software for the TRS-80 is now 
written & available. BCC is pleased to be able to 
present some very fine software now with even 
more available in the very near future. Also we 
develop custom designed software for your 
every need. Write us for a FREE price quote. 

tnS-CO 1. . trade mark .-! the iMU Shack ?lv. of ^Uv Corp. 

For Software Think BCC -^5> 



o Mail Base 80 

A RANDOM ACCESS progri 



SOD I (Requires -»» >. I drive*) $49.95 

HOD .: i.;.ir.s 4«« i I dr lv«i) 1 119 .95 

which keep* track ol an unlimited nunbfr of entriea. P 
ol Information in any order. Today, tin all people «h 
have outatandlni bllla a tomorrow produce a 11. t in ilp-coda ordar. EXCELLQfT 

o Oil Delivery nod u inqnuo <.»* . « mwi «»• for P .ic< quota. 

A syetem for the 80*. Thl* system handle* cverythlnii for the heating. lndu»try 

o Vendor _**> i m^-u 



rlou* other field* 



oded Informal lo. 



4» t ! drives) SJ9.95 

nllaltad number (f>50 per disk) of 



\Q2=^ For Supplies Think BCC 
o Disks & tapes ._* .... *..*..«.. 

- M Irand S64.95 iBo. of 10) 



Inch diskettes 1" Brand $»9.»5 (10 In plaa. -a**) 

dleaettee M Irar.d Sb*.9S (»o» of 10) Vi"Verbat la S39.95 (loa of 10) 

Ca..atte. Very High Duality Slo/doi CJO's. ADD 'n 5IAC atackabla caaeatte 

holders, tach hold* 8 cassettes. Sl.«9ee 



o Printers 



The fabulous MM 1 PMSTEH 9» char ASCII with Tractor Feed > 2K 
Buffer. This printer Juat can't be beat!!! S449.00 12 for $1200.00) 

RECOND1T1CMFD CENTRONICS I02A < U0 char»/»ec ■ ! ! ) $1500.00 



Master Charge E«P- Date. 

v "» Signature «, 



ORDER NOW! All program* com* on quality cassette* Programs are available on diskette for an 

additional charge of 1700 per order NYS resident* add 7*» Check bo*e* of items being ordered: 

* °f "ems ordered Total amount enclosed i All items must be prepaid' 

Bourrut Consulting Corporation ^57 

V. PFrwodtyAd Sfnrlhttxun.nVlT787 



2500 H<L)=W 

25ie na)=*e 

2528 L=L*1 
2538 RETURN 

5000 rem subroutine to print numerical listing 

5616 FOR l«2T0HrM 

502(1 LPRINT l,fl(l).T(I> 

5038 LPRINT R(I) 

5048 NEXT! 

5058 RETURN 



Listing 2. 

18 REM KHIC INDEX DISK VERSION 1 

28 REM REF ffPLlCATIONS RND ALG0R1TTHMS IN COWUTER SCIENCE 

29 REM BY C U C£* PUBLISHED BY SRA 1978 
48 REM TRS68 DOISK BASIC BY L E SPARKS 

58 REM VARIABLES f*4*r3UT>CR,Tt=TITLE,R»=*EFER£NCE 

£8 REM Mt-KEV M0RD,M1$*1GNGRED HORD, Nft=NUMBER OF ARTICLES 

78 REM IN INDEX NUMBER, M*HJMBER OF TITLES .N-NUNBER OF HORDS IGNORED 

88 REM CLEAR STRING SPACE 

98 CLS 

188 OEMs 18888 

118 DEFINT I.JXLItN DEFSTR A,R,N,T 

128 INPUT 'HON MANY TITLES ARE TO BE INDOO'.M 

138 DIM R<rHl),T(rHl).R<rHD.U(358),HI<118).lN(rr»l>,IT(358) 

148 GOSUB 2828 REM INITIALIZE CHAINED LIST 

158 IS*i 

168 INPUT-ARE YOU ftX'ING TO A LIST STORED ON DISK", VI 

178 IF HOV THEN 278 

173 INPUT-FILE Nfiff OF LIST OF ARTICLES", tt 

175 OPEN MM, MR 

188 REM NOU READ DATA FROM DISK 

198 INPUT II. HA 

218 FOR 1=1 TO NA 

228 lNPUTU. A,T,R 

238 PRINT A.T.R 

248 G0SU6 2898 REM INSERT DMA FROM DISK INTO CHAIrCD LIST 

258 NEXT I 

268 CLOSE REM CLOSE FILE 

278 L=l 

288 FOR I=IST0M*1 



2S* 

288 
385 
118 
328 
138 

Ml 

358 
368 
:<78 



CLS 



198 
488 
418 



HWT^flUTHOR (EH) TO STOP)'. A 
IF ft-'Elfr THEN438 

1NPUTM1TLE M 

INPUT ■REFERENCE \R 

CLS PRINT 'AUTHOR '.A 

PRINT 'TITLE "iT 

PRINT 'REFERENCE \R 

INPUT' IS THIS CORRECT", Y« 

IF Y$*'Y" GOT0416 

PRINT 'REENTER INCORRECT DATA' 

G0T038B 

REM INSERT DATA INTO CHAINED LIST 

GOSUB 2098 
428 NEXT 1 
438 NfH«ttI-l 

448 GOSUB 5888 REM PRINT OUT NUMERIC*. LIST OF TITLES 
458 G05UB 2258 REM PRINT OUT ALPHrttETlCR. BY AUTHORS LIST 
468 REM ENTER WORDS TO BE IGNORED 
465 INPUT'FRE YOU ADDING TO A LIST STORED ON D1SK',Y« 
478 IF Y»='N' THEN 558 
475 INPUT' FILE NFrC FOR IGNORED HORDS*, AI 
488 OPEN MMAI 
498 INPUTfrLNI 
588 FORMTONI 
518 1NPUTH.HK1) 

528 NEXT1 
538 CLOSE 
535 N*N1 
548 GOT0638 

558 INPUT'HOH MANY HORDS TO BE IGNORED - . N 
568 11=1 

579 FOR 1= II TO N 

588 INPUT'HORD TO BE IGNORED <Z2Z TO ST0P)\H1U> 

590 IF NK1)*'ZZZ' THEN 618 
688 NEXT 1 
618 N=I-i 
620 CLS 

630 PRINT'THE FOLLOWING HORDS HILL BE IGNORED. 1V0EX I" 
648 GOSUB 1788 
658 N1=N 

668 lNPUT'DO YOU UFNT TO CHANGE ANY OF TrCSE HORDS - 
678 IF Yi=-N' THEN GOTO 738 
688 INPUT- INDEX NUMBER OF HORD TO BE CHANGED". IC 
698 IMPUT'ENTER HEN HORD VHKIO 
788 INPUT' ARE THERE ANY MORE HORDS TO CHANGE ".VI 
718 IF Y*='N* THEN 638 
728 GOTO 688 



• V* 
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?'& lr*VT"DO VOU HISH TO HOC TO THIS LI5T";V$ 

?40 IF V*="N" THEN 79S 

7» IWUT'MM HPWV WORDS DO VOU MfiMT TO «*".MN 

768 I UN 

778 H=NN+11 

788 (5010578 

798 REM NOW CONSTRUCT INDEX 



806 

8ie 

838 
846 

858 



t12r=IN<l> 
TX*1(H2) 
TV»* " 

GOSUB i%8 

IF Ml =8 THEN 318 

W=LEFTt(TX,HI+LEN(TV)-2) 

GOT 0928 

TX=RICiHT*aX, LEN<TX>-LEH(H'-1.' 

Qosuwsce 

IF Hl=8 THEN m 

GOTO 858 

H=TX 

10 SEE IF UORD IS ON IGNORED LIST 

GOSUB 23*8 

IF 14=" THEN 968 

IF UK* THEN 878 

K2=1NCK2> 

IF rC'=8 IHEN 9* 

GOTO 818 
998 as : REM OUTPUT INDEX 
1888 TO" 

1818 LPR1NT Tf»<47>" INDEX 
1828 GOSUB 1588 
183.8 REM MOU PRINT 
1840 FOR MTO L 
1058 
1068 
1878 
1888 
1898 
1108 



878 
ftftp 
898 

m 

918 

920 REM CHECK 

938 

940 

958 

968 

S<?0 

968 



;ndex 



TX=T(IT(D) 

TV=" " 

GOSUB 1968 

IF 111=8 THEN 1148 

TU=LEFT»(TX-Hl+LEN<TV)-2) 

TX=RIGHT*(TX, LEN(TX)-LEN<TH)-1> 



1116 IF H<])=TTH THEN 1198 

1128 TC=TC+" ■♦TU 

1138 GOTO 1078 

1148 TH=TX 

1158 IF MI=6 THEN 1178 

1160 TC=-TC+" "*TH 

1178 IF TUOM(I) THEN 1278 

1188 TX=" 

1198 Z=48-LEM(TC) 

1280 IF Z<0 THEN Z»0 

1218 TC=STRINGi(Z, " ')*TC 

1220 IF Ml =8 THEN TX=" 

1238 TX=TH+" '+TX 

1240 X=38-LEN(TX):IF X<0 THEN X=8 

1250 TX=TX*STRING*<X, * ") 

1268 LPR1NT TCTX," MT(I) 

1270 MEXTI 

1288 INPUT "DO YOU *HT TO SflVE EVERYTHING ON DISK";V* 

1298 IF Y*="N" THEN END 

1308 CLS; INPUT-FILE NFK FOR fRTICLE LIST m ,m 

1318 OPEN 'OM,» 

1320 INPUT'FILE NRC FOR KEY WORD LIST ';* 

1338 OPEN "0\ 2, UK 

1348 IMPUTFILE NOME FOR IGNORED WORD LIST *;U1 

1358 OPEN *0-.3,Ul 

1368 PRINT II,* 

1378 FOR I=2T0NFH1 

1388 PRlNTfl,ft(l);-,-iT(l)i-,-;R(I) 

1398 PRINT fl(l),T(l),R(I) 

1488 NEXT 1 

1418 PR 1 NT 12, L 

1428 FOR I=2T0L 

1438 PRINT •2,M<1);\MT<1) 

1448 PRINT H<I), IT(1) 

1458 NEXT I 

1468 PR1NTI3,N1 

1478 F0R1=1T0N1 

1488 PRINTI3.HK1) 

1498 PRINT M1<1), 

1588 NEXT 1 

1518 PRINT 

1520 CLOSE 

1530 REM NOW HRVE FINISHED 

1548 END 

1588 REM SHELL SORT SUBROUTINE FOR KEY WORDS 

1598 1I*=L-1 

1688 IM=lNT(IH/2) 

1610 IF 1M=8 THEN 1768 

1628 J*l 

1638 K=L-1H 

1640 I=J 

1658 1L=1+IM 

1660 IF W<1XN<11> THEN 1738 

1678 TE=«(1):IE=1T(1):REM TEHPORWY STORE FOR KEY WORD AND INDEX 

1688 U(I)=N(IL).IT(I)=IT(1L>.REM SWAP PLACES 
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TRS-80® CP/M® &CBASIC® 
BUSINESS SOFTWARE 



All MOD II CP/M's are not created equal • • • I 
Find out why ours is the Better Business Buyl | 

Model I CP/M (rel. 1.5) $ 1 50.00 ~ 

Model II CP/M (rel. 2.0) 250.00 

APH (Automated Patient History) 1 75.00 

RESIDENTIAL PROPERTY ANALYSIS 
system 300.00 

The Genuine Article: 
Osborne & Assoc. CBASIC source programs — 

O&A Payroll w/Cost Accounting $250.00 

O&A Accts. Rec./Accts. Payable . . . 250.00 | 
O&A General Ledger w/Cash Journal . 250.00 
O&A CBASIC books for above (each) .... 1 5.00 

Send 30C SASE for CP/M Users Group software 
list & free "CP/M Primer". 

' TRS-80 is a registered trademark of Radio Shack, a [andy company 
" CP/M is a registered trademark of Digital Research 
* CBASIC is a registered trademark of Software Systems 




ASiS 



IT! I 'C S 

IN 



(714) 848-1922 



804 1 NEWMAN AVENUE • SUITE 208 • HUNTINGTON BEACH CALIFORNIA 9264 / 

<ii«iuuiuH6iii(iiiiiiiiuiin«iiiifiiiuiiiiiuiHUNUNiiHHiiu«ntnnmin^ 



GIVE YOUR TRS-80 MICROCOMPUTER 
WHAT IT DESERVES 



All tapes $10.00 each, on cassette. 

C.O.D. orders accepted 

Choose Level I or II. 

A television station in Florida chose our Biolorecasl program (catalog » 
CS D to use in a special news broadcast during the November 1978 state 
wide political elections Many think ours is Ihe best biorhythm program ever 
written And it loads and executes in less than 4K' 

One customer is using our Orbit programs icatalog » CS-2i to help him m 
the weather satellite work he does for the Air Force 

Recreation centers, schools, businesses, doctors and housewives are 
using our Lend Out program Lend Qui tcatalog * CS 7) keeps track of things 
loaned oul to people Its high utility together with its many features and 
ease of use. have made it a best seller 

And speaking ot best sellers 

Our Turkey Buzzard game (catalog » GT 4i has made an even bigger 
splash than we expected It is a game thai has everything a detailed 
scenario, character ammalion. and a general arcade Style It s chocked full 
of dangers and comic pitfalls No wonder Ihere are those who say it may be 
the most successful work ever to combine a continually changing plot with 
all TRS-80 graphics capabilities Already it is becoming a classic among 
classics 

All ol the above programs will execule in less than 4K RAM 1 You can t get 
those programs from any other company We invented them and only we 
own the rights to them Sure you can buy one ot those cheap software 
library' deals, but most of the programs they feature can be found m books 
Books you can check out from your public library for nothing 

So for something truly different for your computer, look to the creative 
software company SendSASE to receive the product list faster. 

ritS-M li * rr»d«m»n» a/ in. Rtdio Sh<ct Di.ii.on or (/>• T»no> Corpo/tlion mM irliicli w urn not tlUUu»d. 



1-803-472-2083 



e Mm st. Compurcx O 

_ PO Box 536 Inman SC 29349 
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tS Reader Service— see page 147 
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THE. 



7 DF V 



Break our test message! 
lb earn 3 ounces of fine gold, 



GOLD 

QFli/A DIM send stamped, self -addressed 
IfHWAIfVi envelope toCRYPTEXT to enter. 



FEATURES' KEY LENGTH* 80 bits (more than DES!) 

DATA RATE' Exceeds 15,000 chars/sec. 
Pocket-size encryption device 



APPLICATIONS' Secure data transmission 
High security file storage 
Software protection 
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tio<t 



VBA 



mastei change 



P. O. Boi 423 
Nerthgete Sla. 

5«»tt le, WA 98123 



CORPORATION 



(206) 364-8583 



VERBATIM® ATHANA® GEORGIA MAGNETICS® 

Floppy Diskettes for 

ANY COMPUTER SYSTEM 



8 " Floppies only $3 

rtU 

10 for $3.65 ea • 50 for $3.40 ea 



20 

ea. 

muNDREDlO'S 



Wt reaerve the right to ship cither of the name brands that we carry 

rr 



5V4 Mini-floppies only $2 

HUNDRED 

10 for $3.10 ea • 50 for $2.85 ea 



60 

ea. 

HUNDRED LOTS 



SPECIFY SIZE, TYPE, & COMPUTER 

SV. ' Soft Sector. 10 Sector. 16 Sector— •' IBM Compatible. Hard Sector 



CALL TOLL-FREE 24 HRS. TO ORDER 

800-824-7888 



OPERATOR 814 

CALIFORNIA 800-852-7777 gi.«y serviced C.O.D. 



Schools and 
universities 




DC SOFTWARE & COMPUTER PRODUCTS 
POST OFFICE BOX 503 
SAN BRUNO, CALIF. 94066 

FOR INFORMATION 415-348-2387 
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1698 H<IL>«TE IT(IL)=IE 

1788 1=1-111 

1718 IF Kl THEN 1738 

1720 GOTO 1658 

1738 J=J*1 

1748 IF K* TtCH 1(48 

1758 GOTO 1688 

1768 RETURN 

1788 REH BUBBLE SORT FOR IGNORED UORDS 

1796 NI=N 

1888 S=8 

1818 N]=NJ-i 

1828 FOR MT0N1 

1838 IF MI<J)0=WKJ+1> THEN 1888 

1848 UI«NKJ) : REM TEMPORY STORE FOR UK J) 

1858 H](J)=U1<J+1) REM SNAP PLACES 

1868 HKMMU 

1878 S=l 

1888 NEXT J 

1898 IF 5=1 THEN 1888 

1988 REM KM PRINT LIST CM CRT 

1*18 FOR IX'lTON 

1928 PRINT UK1X), IX, 

1938 NEXT IX 

1948 PRINT 

1958 RETURN 

1968 REM 1NSTRING ROUTINE REF TRS88 LEVEL 11 HFMUAL 

1978 FOR HI=1T0 LEN(TX)-LEN(TV)»1 

1988 IF TY-HH>«(TX,H1,LEN<TY>> RETUFH 

1998 NEXT HI 

xtfi hi=b RETURN 

2818 REH SUBROUTINE TO 1N1T1HI2E CHflllCl' LIS! POINTER 

2828 «2=2 REH HI' IS POINTER 

2838 INU>=8 

2848 FORWTOnn 

2158 IM'. 1 =1*1 

2868 NEXT I 

2078 IIKrM>=8 

2888 RETURN 

2898 REH SUBROUTINE TO INSERT OATH INK CHAINED LIST 

2168 REH Hi' IS POINTER TO FREE SPACE 

2118 IF H2-8 THEN 2248 

2128 Hl=l 

2138 IF IN<H1)'6 THEN 2178 

2148 IF B<IN<Hl)»ft THEN 2178 

2158 H1=1N<H1) 

2168 G0T02138 

2178 REM NCM INSERT DATA INTO LIST 

2188 J =112 

2198 H2-INU) 

2218 1N(J)=1N(H1) 

2218 A<.l)=A T<J)=T .R(J)»R 

2228 IN(W) = J 

2238 RETURN 

2248 PRINT" NO FREE SPICE "RETURN 

2258 REH SUBROUTINE TO PRINT ORDERED LIST 

2268 LPRINT'fLPHRBEFriCRL BY AUTHORS LIST OF ARTICLES* 

2278 LPRINT'PRINTED AS FttLOHS REFI. AUTHOR; TITLL REFERENCE* 

2288 LPRINT* ' 

2298 H2-1N(1) REH SET POINTER AT STRRT 

2388 REM OOO WHILE H208 

2318 LPRINT H2j * *i 

2320 LPRINT A<H2>; * *, 

2338 LPRINT T(H2);' »j 

2348 LPRINT R(H2) 

2358 H2»IN(H2):REH SET POINTER TO NEXT ITEM 

2368 IF H2=8 RETURN 

2370 GOT02388 

2388 REH B1NRRY SERRCH TO SEE IF WORD IS ON IGNORED LIST 

2398 K=8 

2488 IL'l 

2418 lHMt 

2420 IF 1L>IH THEN 2588 

2438 1H=INT(<IL*1HV2) 

2448 IF HI(1H>=M THEN RETURN 

2458 IF UI(IH»U THEN 2488 

2468 11>1H*1 

2478 GOTO 2420 

2488 lH-IH-i 

2498 GOT02428 

2588 U(L>>U:REH SRVE MORD BECAUSE IT IS NOT ON IGNORED LIST 

2518 IT(L>*K2:REr1 KEEP TRfCK OF REFI 

2520 L4.+1 

2530 RETURN 

5888 REM SUBROUTINE TO PRINT HUMERI Ca LISTING 

5018 LPRINT" LIST OF ARTICLES' 

5828 LPRINT* * 

5838 FOR1-2TO0V1 

5840 LPRINT l.T(I).T(l> 

5858 LPRINT TAB(15>R<1) 

5868 NEXTI 

5870 RETURN 
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I made the TRS-80* into a serious computer. 
Now IVe made the Model II into a spectacular one. 



I'm Irwin Taranto, and I've helped almost a 
thousand businesses get their first computers up 
and running. 

I've done it primarily with the TRS-80, because it's 
a really elegant piece of hardware. Given the right 
programs, it can do substantially the same work as 
the traditional minicomputers that cost four times 
as much. 

I proved it with four on-line, interactive programs 
adapted from the genuine Osborne & Associates 
systems, originally designed for the $30,000 Wang 
computer. Then I added two of my own and made 
them all work on a $4000 TRS-80. 

Now I've done the same thing for the new TRS-80 
Model II. It's an $8000 computer that works twice as 
fast and has four times the memory — up to two 
million characters. 

My new systems are fully documented, and 
because I'm working with a much more powerful 
computer, they're a night-and-day advance over the 
Model I programs. They'll turn your Model II into a 
complete business computer, set up and ready to go. 



THE TRS-80 MODEL II PROGRAMS 
General Ledger/Cash Journal: handles up to 7000 transactions 
on 500 different user-defined accounts It keeps track of them by 
month, quarter and year, makes comparisons to the prior year, 
and does departmentalization 

Accounts Payable Pure hs«a Order: generates the purchase order 
and posts the item to payables when the goods are received 
Invoice-linked, it calculates and prints checks and aged ledger 
reports and links fully to the general ledger 

Accounts Receivable/Invoicing: keeps track of billed and 
unbilled invoices, open and closed items, aging and service charge 
calculation It prints statements, links to the general ledger, and 
can work within either an invoice-linked or balance-forward 
accounting system 

Payroll/Job Coating: computes regular, overtime and piecework 
pay. keeps employee files, figures taxes and deductions, prints 
checks, journal, 941-A and W-2 forms, and breaks out individual 
job costs 



When I say set up and ready to go, I mean just 
that. If you're not quite sure on that point, call the 
number below and we'll give you the names of some 
of the people who've already bought all over the 
world. Call them up and hear what they have to say. 

These Model II programs are completely custom- 
tailored, which explains their $249.95 price. Before 
we'll send you a disk, you have to fill out a detailed 
questionnaire that tells us your precise business 
requirements. Then we send you the disk, all the 
instructions you need, and my phone number. If you 
call, we answer all your questions. If your questions 
are tough enough, I'll talk to you personally. 

Because that way I'll make sure that Model II of 
yours turns into a spectacular computer, just like 
I promised. 
I 1 

. Please send me the custom questionnaires for the following 
$249 95 Model II programs 

! General Ledger/Cash Journal 
LJ Accounts Payable/Purchase Order 
[ j Accounts Receivable/Invoicing 
□ Payroll /Job Costing 

Please send me information on the TRS-80 Model I programs at 
$99.95 each 

Please send me information on other Taranto business programs 



Your name. 



Company name 
Address 



City/State/Zip 



" Taranto 

& ASSOCIATES, INC. 

PO Box 6073, 4136 Redwood Hwy, San Rafael GA 94903 ■ (41b) 472 2670 



rk of the Tandy Corporate 



.-J 



i/ANdirSwWM-lffptgt 147 
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HARDWARE 



You can have the best of two worlds 
with this software driven modification. 



lowercase and UPPERCASE 



Donald L. Stoner 

Richard Barker 

The Peripheral People 

PO Box 524 

Mercer Island WA 98040 



Radio Shack didn't overlook 
much when it designed the 
TRS-80 system. It is unques- 
tionably the most popular com- 
puter of all time, with sales well 
into six figures. 

At the time the TRS-80 was 
being developed, graphics was 
the big buzzword in the hobby 
computer industry. Graphics 
helped in the transition from 
video games to hobby comput- 
ers for the American public. 
The marketing people at Tandy 
were probably so insistent on 
having better graphics that 
they overlooked one of the 
most important markets for the 
TRS-80— word processing. 

If you are frugal and have a 
bit of electronic knowledge, 
you can build up a word proces- 
sor for around $1000. The basic 



JPC*s FROM P W S.Z2J S"£E>« FPjOM Pin 3, 




BREAK lINE 



Fig. 1a. 



TRS-80 costs $600, and the 
careful shopper can find plenty 
of Selectrics for less than $400. 

It's impossible to have an ef- 
fective word processor without 
an uppercase/lowercase capa- 
bility, however. An early bro- 
chure on the TRS-80 mentioned 
that you could have uppercase 
and lowercase in your TRS-80, 
but you would have to give up 
the graphics capability. De- 
spite sending repeated inquiries 
(some of them heated) to Tandy 
Corp., I failed to elicit exactly 
how this could be done. 

As it turns out, you can easily 



have keyboard selection of up- 
percase or lowercase without 
giving up graphics. The infor- 
mation that follows tells you 
how. I call it a "convertible con- 
version." It is simple to install 
but, more important, can be re- 
moved in a matter of minutes in 
case you need warranty repairs 
to your keyboard. No holes are 
drilled in the case or circuit 
board. 

Materials 

Besides the usual tools and 
soldering iron, you will need the 
components shown in Table 1. 
All these materials are avail- 
able from your Radio Shack 
store. Their part numbers are 
shown in parentheses. You will 



also need some electronic 
knowledge to complete the 
conversion. If you are a little 
weak in this area, consult a 
friend you consider knowledge- 
able in electronics. He can be 
helpful if you get in trouble! 

A switch is required in case 
you want to return the circuit to 
its original configuration. This 
is necessary if you own (or plan 
to purchase) any machine-lan- 
guage programs such as Micro- 
Chess 1.5. Without the switch, 
the alpha characters in Micro- 
Chess (and similar programs) 
appear as weird control charac- 
ters. However, the switch is 
normally left in the conversion 
position and does not affect 
BASIC programs. 



short lengths ol Kynar wire (278-503) 

one type 2102 IC (276-2501) 

one type 7486 IC (276-1827) 

one 4.7k. ' . Watt resistor (271-030) 

one DPDT toggle switch (275*14) 

live 6 inch lengths ol hookup wire (see Fig. 2) 

Table 1. Parts list. 
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Conversion Procedure 

Ready for the big step? Start 
by forgetting you paid more 
than $600 for the TRS-80 and 
plunge ahead. 

1. Disconnect your keyboard 
and lay it face down on a bath 
towel to prevent scratching. 

2. Remove the six screws. 
Note there are three different 
types. Be sure to get them back 
in the correct holes when reas- 




BREAK LINE 



Fig. 1b. 



sembling. 

3. Carefully turn the case 
over and remove the top cover. 
Lift out the keyboard assembly 
from the posts and remove the 
plastic spacers. Remove the 
second circuit board and set 
the bottom case section aside. 
Do not flex the copper cable 
(which connects the two boards) 
excessively. The two boards do 
not disconnect from each 
other. 

4. Set the two boards down, 
component side up (with the 
keyboard to the rear), on your 
work towel. The values marked 
on the main board should read 
correctly (not upside down). 

5. Observe the lower left 
area of the main circuit board 
(not the one with the keys). Lo- 
cate IC chips Z60 and Z61. You 
will be piggybacking a new IC 
on top of each one of these 
chips. If you do not know how. 
learn to read the pin numbers of 
these integrated circuits. Pin 1 

CONVERTED 




74LSI75 
6 9QCQS 



D D D 



Z28 

7* LS 7« 




>- GREEN TO PIN 13. Z30 

YELLOW TO PIN 12, Z6c> 
OWANGE TO t»:N 4, Z60 
'REO TO PiN 3. Z60P 
• BROWN TO PIN 13. Z27 



Fig. 2. P 're-wire the switch as 
shown here. Don 't forget to add 
the jumper. 



is the reference pin located at 
the upper left-hand corner of 
the chip, nearest the Z number 
printed on the circuit board. 
There is also a dot indentation 
in the plastic body of the chip 
nearest pin 1. 

The pins are numbered suc- 
cessively from pin 1 down one 
side and up the other. Thus the 
highest-numbered pin (usually 
14 or 16) is opposite pin 1. Note 
that Z60 (marked 74LS367) and 
Z61 (marked 2102) are both 
16-pin chips. Also locate Z30. 
You are actually going to do a 
coronary bypass by cutting a 
circuit board trace near this 
chip and another circuit trace 
on the bottom of the board. 

Still game? It is not too late 
to put everything back to- 
gether, get some orange model 
airplane cement (butyl acetate), 
touch up the warranty paint 
seal, and Radio Shack will be 
none the wiser! Proceed, you 
say? Stout fellow! 

6. We are going to stack the 
new 2102 chip on top of Z61. 
which also happens to be a 
2102. First, however, bend up 
pins 11 and 12 of the new 2102 
(let's call it Z61 P. for piggyback) 
at right angles so they cannot 
touch pins 11 or 12 of Z61. 

7. Next, solder (pin for pin 
and don't get it reversed end for 
end) Z61 P on top of Z61 . Use ex- 



treme caution to get all pins 
(except 1 1 and 12, of course) se- 
curely connected. Equally im- 
portant, do not get any solder 
bridges between pins or from 
one of the pins to the circuit 
board. 

8. Connect a short, direct 
wire from pin 5 of Z60 to pin 1 1 
of Z61P. Pin 12 of Z61P will be 
connected to the toggle switch 
later. 

OK, that was the easy part. 
Next we have to piggyback the 
7486 chip on top of Z60. We'll 
call this added chip Z60P. Un- 
fortunately. Z60P is a 14-pin 
chip, while Z60 has 16 pins. 
Thus, we cannot make a pin-for- 
pin connection as we did with 
the 2102. 

9. Bend pins 8, 9. 10. 11. 12 
and 13 of Z60P at right angles 
so that they cannot touch the 
pins of Z60. Only pin 14 on this 
side of the chip will be used. 

10. Bend pins 1, 14 and 7 
slightly so they will contact 1. 
16 and 8 when Z60P is joined to 
Z60. 

11. Bend pins 4 and 5 of 
Z60P away from each other so 
they will contact pins 4 and 6 of 
Z60 when the two chips are 
joined. 

12. Bend pins 2, 3 and 6 of 
Z60P at right angles so they 
cannot touch the pins of Z60. 

13. Place Z60P over Z60 to 
ensure you can make the fol- 
lowing solder connections. 
Look good? OK, solder the con- 
nections. The first number is 
Z60P; the second is Z60. 

Pin 1 to Pin 1 
Pin 14 to Pin 16 
Pin 7 to Pin 8 
Pin 5 to Pin 6 
Pin 4 to Pin 4 

14. Connect the 4.7k, 1/4 
Watt resistor between pins 1 
and 14 of Z60P. 

15. Connect a short, direct 
length of Kynar wire from pin 2 
to pin 6 of Z60P. For the mo- 
ment, leave pin 3 of Z60P dis- 
connected. It will be connected 



Fig. 3. Circuit diagram of the converted uppercase/lowercase 
TRS-80. (Courtesy of Radio Shack) 



Connect the green wire to pin 13 of Z30. 
Connect the orange wire to pin 4 ot Z60. 
Connect the yellow wire to pin 12 ot Z61P. 
Connect the red wire to pin 3 ol Z60P. 
Connect the brown wire to pin 13 of Z27. 

7ao/e 2. Connecting the switch. 
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Listing 1. 



















to the toggle switch later. 

16. Refer to the sketch in 
Fig. 1 (a). Locate the area shown 
between Z29 and Z30 and cut 
the trace with an X-acto knife at 
the point shown. This point can 
be bridged with a short piece of 
bare Kynar wire if it is neces- 
sary to remove the conversion. 

17. Similarly, on the reverse 
side of the board, locate the cir- 
cuit trace that goes from pin 13 
of Z30 to pin 4 of Z60 (see Fig. 1 
(b)). Make a small cut in this 
trace that can be bridged later, 
if the conversion is removed. 

18. The last conversion step 
is to connect the toggle switch. 
Use the 6 inch lengths of hook- 
up wire to prepare the switch as 
shown in Fig. 2. Connect the 
switch as directed in Table 2. 
Don't forget to include the 
jumper on the switch, as shown 
in Fig. 2. Place the switch in the 
conversion position (with the 
handle toward the green wire 
end). 

This completes the case con- 
version of the TRS-80. Carefully 
review your work to make abso- 
lutely certain there are no 
shorted wires or solder bridges. 
Check things with an ohmme- 
ter if you have any doubt about 
any connection. Once you are 
certain all is well, reassemble 
everything by reversing the dis- 
assembly steps done earlier. 
Route the cable (with the toggle 



switch on the end) out the hole 
where the interface plug con- 
nects. 

Power Up 

After reconnecting every- 
thing, power up the system nor- 
mally. The screen display 
should be the same as before 
with one small exception. Your 
cursor will no longer be a dash 
but, rather, will look like L_j. 
This is one of the control char- 
acters mentioned earlier. It 
takes some getting used to, but 
pretend it's a happy face! 

Despite all that work, we still 
have no lowercase letters. For 
this, you are going to have to 
enter some software. If you did 
not purchase a software tape 
from The Peripheral People, 
use your T-BUG or DOS to enter 
the machine-language program 
in Listing 1. It is relocatable, de- 
pending on how much memory 
you have. 

The BF is the location. It 
should be 7F, BF or FF for 16K, 
32K or 48K, respectively. Don't 
forget to protect your memory 
at 32605, 48991 or 65375, or 
your programs will go crashing 
into this routine with disas- 
trous results. Incidentally, 
don't forget to also save the 
routine on tape or disk. Having 
to enter the machine code each 
time you want to use the upper- 
case-lowercase conversion can 



POKE16414,9&POKE16415,XXX:POKE16422.167:POKE16423,XXX. 

Example 1. 



INPUT-WOULD YOU LIKE UPPER AND LOWER CASE";A$ 

IF LEFT${A$.1) = "Y"THEN POKE &H4019.1 ELSE POKE &H40 19,0 

Example 2. 



become messy. 

Testing 

To see if all your hard work 
and electronic expertise paid 
off, type and enter the patch (in 
Example 1) to the start of the 
routine. The XXXs are the start- 
ing address and are the deci- 
mal equivalent of 7F, BF or FF 
for 16, 32 and 48K, respectively. 
This patch will be required at 
the start of any program that re- 
quires uppercase and lower- 
case. Next, type and enter 
&H4019.1. 

The screen should show 
READY in lowercase letters. 
Besides this, the first thing you 
will probably notice is that the 
letter a is sitting above the 
baseline of the words. Early 
TRS-80S had a Motorola char- 
acter generator ROM with an er- 
ror in the font for this letter. In 
later units, this ROM error was 
corrected. 

You will also find that the 
tails on letters such as p, q, y 
and so on don't extend below 
the baseline. This is because 
the character generator is only 
a 5 x 7 matrix. There simply are 
not enough dots available to 
print the tails below the base- 
line. The letters could be shifted 
electronically, but this is hardly 
worth the complication, trouble 
and expense (translation: I don't 
know how). Once you get used 
to the shifted letters, you won't 
notice them anyway. 

You can return to uppercase 
only by typing POKE &h4019,0. 
The two POKE statements can 
be built into your program (see 
Example 2). 

It is interesting that an un- 
modified TRS-80 does have up- 
percase and lowercase printing 
capability. Naturally, this is on- 
ly apparent with a printer hav- 
ing a lowercase capability. 
However, LPRINT produces up- 
percase printing all the time un- 
less you use the shift key when 
writing the program. Unfortu- 
nately, pressing the shift will 
cause lowercase letters to be 
printed, which is just the oppo- 
site of what you want. 

The Program 

The program which accom- 
panies this article has provi- 
sion for reversing the case out 



the printer port. The case rever- 
sal to the printer is made auto- 
matically when you use the 
above POKE statement. Natu- 
rally, when you POKE back to 
zero, the normal unshifted up- 
percase printing occurs. 

The accompanying program 
also has provision for inserting 
an automatic line feed with 
each carriage return. If you 
have a Teletype or similar ma- 
chine that requires this, simply 
POKE &H401A.1 to turn it on 
and &H401 A,0 to turn it off. The 
program will even add a carriage 
return after a line feed as re- 
quired by some printers. 

Finally, the program has an 
echo routine. To the best of my 
knowledge, this is the first time 
this feature has been offered to 
TRS-80 owners. This is extreme- 
ly handy for a couple of rea- 
sons. Let's say you have a num- 
ber of PRINT statements that 
must be changed to LPRINT be- 
fore the printer will work. You 
can type POKE &H4018.1 just 
before these statements. Any 
subsequent print statements 
will echo on the screen and 
printout without adding L ahead 
of each. 

The echo is also handy to 
turn your printer into a type- 
writer. By entering the echo 
POKE statement, anything you 
type on the keyboard will echo 
on the printer. When you want 
to turn off this feature, simply 
type POKE &H4018.0. 

These features are all incor- 
porated in the Electric Secre- 
tary word-processing program, 
which was used to type this 
manuscript. It is available from 
The Peripheral People for $50 
postage paid on a customer- 
supplied DOS-formatted disk 
for the TRS-80. The Electric 
Secretary can also be supplied 
on cassette for the same price, 
for customer transfer to a disk. 
Note, however, it is a disk- 
based system only. Because of 
the self-contained hyphenating 
dictionary (and other features) 
a cassette-based system is not 
fast enough. A complete con- 
version kit of parts, including a 
machine-language program 
tape, is also available from The 
Peripheral People (Box 524, 
Mercer Island WA 98040) for 
$20 postage paid.B 
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TRS-80: 

"TRS-*> is a r*gi»t«r*d trademark of TANDY CORP." 
FINDISK-II Automatically extract user 
file names from disks, print disk directory 
labels and indexed master list of all disk files 
Automatic update Optional descriptions 
TRSDOS or NEWDOS S 20.00 

SOLAR- 1 Passive solar analysis Input any 
latitude, orientation, slope, storage, roof 
shading Output solar angles, heat gain loss. 
% solar, fuel use. hourly, monthly, yearly, 
in presentation format By solar architect, 
easy use Comprehensive manual $30.00 

SOLAR-II As above plus lifecycle cost 
optimisation S 50.00 

R1A-II Real Estate Investment Analysis, 
business or homeowner Input costs, loan, 
tax data Output before after tax cash 
flows, rates of return, depreciation profit gain 
of sale for any time senes complex, essential 
investment calculations in seconds S30.00 

All 32K Tape or Disk (one drive order tapei 

Following mm reg 16K Level-II 

DEPRECIATE-I Calculate, sums, print 
depreciation schedules 1 to 500 items, plus 
print Tax Schedule C Automatically up- 
date 12 facts on each item such as re- 
maining bal & life Prompts optimum 
switch DDB to SL $10.00 

STRUCT-1 Calculate and print beam sizes, 
moment, shear diagrams Optimize beam, 
joist selections. Simple span cantilever, 
uniform and/ or point loads Also moment 
transfer calculations for unusual shapes 
Screen and printer graphics $15.00 

DOCUMAN SOFTWARE *** 

BOX 387- D KALAMAZOO. Ml 49005 

bltx .144 0H05 VISA MC 
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Personal Checks 

* Payables Checks 

* Payroll Checks 

* Combination Checks 

* Statements 

* Invoices 

* Small Minimum Orders 

* Fast Delivery 

Checks 



To-Go 
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* Registered Trademark of Tandy Corp. 

P.O. Box 148. Spring Valley, California 92077 (714) 460-4975 
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& PRODUCTS H TRS-80' fi[™ 



YSTEM 



MALL 
k-JYSTEM 



MACHINE LANGUAGE GAMES 

Ml RAID, BAMICABE or UL-1: - S10.00 each, all 3 fc 



All UI»: * super mooting gallery; 
aissile launcher shoots high spaed ai 



9St popular gaae. Ground based 
t! Hours of fun! 



BARRICADE: "BREAKOUT" for the T«S-B0! Break through 5 .alls with 
high-speed ball and keyboard controlled paddle 1 96 different oct'ons 1 

tSL-1: Enter patterns with repeating keyboard! Save patterns on tape (* 
furnished), flay John Convey'* LIFE. FAST - about 1 second per generation! 

AMrEMTUK! S14.95 each, (3 or acre, S12.S0 each) 

7 versions: 1-Adventuretand, 2-Pi"rate's Adventure, S-Mission Iapossible, 
4-Voodoo Castle, 5-The Count, 6-Strange Odyssey, 7-Hystery fun House. 

UTILITIES 
eae-2: machine utmmst monitor rot 16c tas-bo-s - *Z6.95 

ISeWB: TMAEE VERSIONS Of ISr-2 FOB BISK STSTEKS - 29.95 
BSBr-2 BELOCATOB: PUT ASH-2/2D ANYWHERE IN MEMORY - 9.95 

Machine Language aonitors with Z-80 disassembler! HEX and ASCII aeaory 
dumps; EOIT, HOVE, EXCHANGE, VERIFY, FILL, ZERO, TEST, or SEARCH aeaory, 
read/write SYSTEM tapes, enter BREAKPOINTS, PAINT with TRS232 or Centronics, 
read/write disk sectors directly! RSH-2 tape loads at top of 16K LEVEL I or 
II; 05H-2D disk includes 3 versions for 16K, 32K and ASK. 

BCV-1: CONVERT SYSTEM PAOGAAHS TO BISK FILES -S9.95. Eiecute Adventure, 
Air Raid, RSL-1, ESP-1, T-BUG, etc. froa disk, even if they interfere with 
TRSOOS! New version works with TRSDOS 2.3. 

■ASIC-IP: LEVEL-1 BASIC HITM PIIHTIM! - S19.95. Run any LEVEL-I BASIC 
prograa on your 16K Level-?. PLUS LPRINT and LLIST with our TRS232 or 
Centronics. Furnished on tape; can be used froa disk. 

OTHER PtOBUCTS FOR THE TRS-80' 

ESP-1: S29.95. Asseabler, Editor, Monitor (8080 mnemonics) 
LST-1: 8.00. Listing of Level -1 BASIC with some cements 



See your dealer or order 
CALIFORNIA residents pie 



rect froa Saall Systea Software! 
include 6X for state sales tai. 



SMALL SYSTEM SOFTWARE 



P.O. BOX 316 



NEWBURY PARK. CA 91320 



MODELTI TRS-80' 

CP/P." VERSION 2.0 FOR THE HODEL-II - S170.0B. Latest versjor 
Research. Runs both single and double density disks! "St 
runs nearly any CP/N software, including Cobol, Fortran, C-B< 
business and accounting packages, etc. Hundreds of proqraas 



froa Digital 



, N-Bas 

table 1 



BSMI: EHHAKEB ISM MONITOR FOB THE HODEL-II - 859.95. Relocatable version 
of RSM-2D plus screen editor for aodifying either aeaory or disk sectors in 
both Hei and ASCII, split screen scrolling, and foraatted serial or parallel 
printing. Sold on self-booting disk; directions to save as TRSDOS file. 

PROFESSIONAL SOFTWARE 

MICROSOFT MACAO ASSEMBLER - M0. 00. Editor, Linking Loader, Editor, Cross 
Reference utilities. Produces relocatable code' ReQuires 32k, I disk. 



MICROSOFT FORTRAN - S8O.00. .Fortran Coapiler, Editc 
Loader foras Fortran, Assembly and Library aodules tat 
disk. SAVE! Order both Macro-Asseabler and Fortran 



•, Library. Linking 
) one prograa 1 32K, 1 
>r S150.00. 



THE ELECTRIC PENCIL FOB THE T«S-«0: TAPE-S99.95, DISK-S150.00. Popular 

video editor for creating and saving te«t files. Prints foraatted copy with 

right justification, page titling t nuabering, etc. Upper case only, or 
lower case with aodif ication. 16K Level-1 or 2 (tape). 

CP/H" OPERATING STSTEH FOB THE HOBEL-I - S145.00. The S080/Z80 "Software 
Bus for the Model-' TRS-80. Includes TRS232 and RS-232-C software, 
lower-case Support, debounce, DCV-2 and other unique utilities. Allows use 
of aany available prograes written for CP/M. 

PRINTER SUPPORT 

TBS232 PRINTER INTERFACE - S49.95 (*S2.00 shipping). Asseabled and tested 
printer interface for RS232 or 20-ail current loop printers. E«pansion 
interface not required. Print froa level-Il BASIC, CP/M, BASIC-1P, ELECTRIC 
PENCIL, etc. Standard cassette software included. 

TBS232 "FOBHATTEt" SOFTWARE PACKAGE - SI*. 95. Adds page and line length 
control, printer pause, "smart" line termination, etc. to TRS232. 

BSM232: Adds AS-232-C capability to RSN-2/2D - S9.95 
PEN 232: BS-232-C for cassette Electric Pencil - 9.95 
EBT232: TRS232 and RS-232-C for disk/tape E0TASM - 9.95 



e-»CP/M ta Digital Rese 
SMALL SYSTEM SOFTWARE 



ch. Inc. 



♦TRS-80 ta Tandy Corp. 
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P.O. BOX 366 



NEWBURY PARK. CA 91326 
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Introducing 

COBOL + FORTRAN + 64K RAM 



FOR YOUR TRS-80 



Release your software chains with the NEW FREEDOM OPTION, a plugable change 
that restructures the TRS-80* on command to perform like a large Z80 system . 
All the TRS-80' features are retained. All TRS-80' software will run without 
interference. The option is supplied with a fully assembled & tested FREEDOM BOARD, 
T8/O8 on a5 1 4 "disk, and complete instructions. T8/O8 allows your TRS-80' to execute 
most software originally written for CDOS , TSA OS 2 , and CP/M 3 operating systems. 
T8/O8 opens the door to higher level languages and existing programs. 

To further enhance your TRS-80' processing power, a MEMORY EXPANSION OPTION 
is available to replace, on command, the ROM and provide A FULL 64K RAM. 
This option is switched into operation by the FREEDOM BOARD providing 57K of 
USER RAM with T8/OS loaded. Both options are fully assembled & tested and fit 
into the TRS- 80* key board enclosure. Write for more details. 6 Mo. Board Warranty. 

FREEDOM OPTION $245 

■ MEMORY EXPANSION OPTION $295 

F.E.C. ltd. - 



Send Check or Money Order to: 

(MASS RESIDENTS. PLEASE INCLUDE 5% TAX) 




(617) 944- 5329 

P.O.Box 2368 • Woburn, MA. 01888 



•TRS-80 ®Tandy Corp. 
1-CDOS 6 Crmamco Inc. 
2-TSA/OS® TSA Software Inc. 
3<P M ® Digital Rataarchlr 




CREATE YOUR OWN PROGRAMS 

Custom programs are the best way to ensure 
that your computer does what you want. 

"Computer Programing for the Complete Idiot" 
simplifies programing by describing a format that 
shows how to organize BASIC into meaningful 
programs that achieve specific tasks. A Payroll 
Program is used as an example Detailed instruc- 
tions then show how to apply this process to 
creating original programs. 

This book features the TRS-80 and is an excel- 
lent guide for the beginner with many useful 
references lor the advanced programer 

_??i Y _ $ iL 5 _ i }_ 2 1 J!^? ES 

Please send me copies of "Computer 

Programing for the Complete Idiot" at $5.95 each 
plus $1.00 for shipping. (California residents add 
sales tax of $0.36 per book ) 

G Check or Money Order Enclosed. 

Charge to my: — Master Charge □ Visa. 
Card No: 



Exp. 



Name: 
Address: 



Zp: 



DESIGN ENTERPRISES OF SAN FRANCISCO 
Dept 803. P.O. Box 27677 
San Francisco, CA. 94127 ^139 
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SOFTWARE AND 

HARDWARE FOR 

MODEL I COMPUTER 

DISK DRIVES 

HIGH-SPEED PRINTERS 

MICRO-COMPUTER CASSETTES 

DISKETTES 

BUSINESS AND PERSONAL 

PROGRAMMING 

UTILITY PROGRAMS 

CUSTOM PROGRAMMING 

MODEL I COMPUTERS 

'CIRCLE READER SERVICE NUMBER* 
OR WRITE FOR BROCHURE 

COMPUTER GENERATED DATA 

700 Baker Road Suite 115 
Virginia Beach, Virginia 23462 
(804)497-1165 ^ 130 



TRS-80* STRUCTURED 
BASIC 

Nov* available tor TRS-80 disk systems 

L?aftW«rVa$l 



A pre-compiler adding performed pro- 
cedures, case structures, repeat while, until 
and many other structured language state- 
ments to the already powerful level II 
BASIC. Diskette $50.00, Listing $35.00, 
Manual purchased separately $10. (X). 



313 Meadow Lane 
Hastings, Michigan 49058 

(616) 945-5334 
'Dealer inquiries invited* 

TRS-80 is a trademark of Tanav Corp 



REVIEW 



Seems that a label can cost more than $100, read why. 



Quick Printer 



Henry G. Riekers 
208 Phelps Avenue 
Glen Burnie MD 21061 



Centronics Data Computer 
Corporation of Hudson NH 
manufactures the P1 Microprint- 
er, which is also known as the 
Quick Printer when sold under 
the Radio Shack label. 

The P1 is a seven-bit ASCII 
TTL printer with strobe and ac- 
knowledge pulse that employs 
nonimpact discharge technolo- 
gy that requires only four mov- 
ing parts to produce variable- 
pitch 5x8 dot matrix charac- 
ters at a rate of 150 lines per 



minute, with a vertical density 
of 5 lines per inch. The paper, 
which is 4.75 inches wide, car- 
ries a conductive aluminized 
coating that is vaporized by a 
low voltage discharge from the 
printhead. Printed characters 
are highly legible, and excellent 
copies can be made. 

A number of software com- 
mands initiated by the TRS-80 
provide the user with con- 
siderable flexibility, such as 
printing at either 5, 10 or 20 
horizontal characters per inch. 
Underlining may be started and 
stopped by separate com- 
mands. An audio alarm, also 
under software control, pro- 
vides a loud two-second tone. 



The full 96-character ASCII set, 
including both upper and lower- 
case letters, can be printed. 

Connection of the P1 to the 
TRS-80 is accomplished through 
a Radio Shack 26-1401 cable 
and the Radio Shack 26-1 140 Ex- 
pansion Interface. (Note: Radio 
Shack has recently announced 
a lower-priced alternative for the 
connection of parallel printers 
to the TRS-80 without the need 
for the Expansion Interface.) No 
electrical changes are required 
to the Centronics P1 printer to 
make it compatible with the 
TRS-80. 

The Centronics manual pro- 
vides the octal software codes 
for printer control. Since the 



TRS-80 initiates these com- 
mands in decimal format, they 
must be converted by the 
operator. Thus, LPRINT- 
CHR$(29) prints 20 characters 
per inch; LPRINTCHR$(30) 
prints 10 characters per inch; 
and LPRINTCHR$(31) prints 5 
characters per inch, which is 
typed into the computer, for ex- 
ample, as LPRINTCHR$(31) 
"Radio Shack." Underlining is 
started and stopped using 
LPRINTCHR$(15) and (16), 
respectively. The audio alarm is 
sounded by LPRINTCHR$(07). 

The commands for print size 
may be given prior to listing a 
program or may be included in 
the body of the program to ob- 
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tain various printing effects. In 
addition, lowercase letters may 
be printed directly on the P1 by 
depressing the shift key when a 
program is typed on the key- 
board. The printing will still ap- 
pear as all uppercase on the 
CRT, but will be both upper and 
lowercase on the P1 for what- 
ever printing density is selected. 

Since each character can be 
printed using its ASCII code in 
the CHR$ format, it is possible 
to print characters not other- 
wise possible, such as quota- 
tion marks. In addition, printing 
may be stopped and started, 
paper advanced and printhead 
positioned. 

The P1 is 13 inches wide, 10.5 



inches deep, 4.25 inches high, 
weighs 10 pounds and con- 
sumes 40 Watts while printing. 
The case is made of rugged 
plastic decorated in ivory and 
black. Controls on the front of 
the printer consist of a power 
switch to turn the unit on and 
off, a select switch that allows 
data to enter the printer and a 
paper-feed button that permits 
the operator to advance the 
paper. Even though power is 
"on," the motor turns off when 
no data is present. 

Indicators consist of lamps 
displaying power "on" and 
"paper empty," which also 
sounds an audio alarm. Paper is 
available from Radio Shack or 



directly from Centronics in 
either shiny or matte aluminum 
finish. The printer is not sup- 
plied with a mating connector. 
The Centronics P1 is available 



through many supply houses for 
$395 each. The Quick Printer is 
sold by Radio Shack for $499 
and is available off-the-shelf in 
many stores. ■ 



M I CROPR I NTER 


MICROPRINTER 
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Sample output from PI. 



DUST COVERS 

& software/hardware 
TRS-80 
three piece set 
keyboard-tape-video 
durable black vinyl 
$16.95 
+$2 long video ( expint ) 
L.2 music prgm $4.95 
tape controller with 
spkr/vol control $9.95 
prgm+controller $13.95 
all prices POSTPAID 

COMPUTER PRODUCTS 

13495 W. Center Dr. 

Denver, Co. 80228 

• 86 
■ "THS-80 Is ■ registered trademark ol TANDY CORP." ■ 



MicroPhase Systems 

Announces 

WORDSCRIBE for TRS*80s 

LetWORDSCRIBEtransform your Hodel I or Model II 
TRS-80 into a high quality word processing system. 

WORDSCRIBE features Include: full screen 

editing, margin justification, line Insertion, 
line deletion, block move, block copy, find, 
change, and much much more. 

Model II J149.95 

req. 1 disk, 64k mem. 
Model I disk version ( 99.95 

req. 1 disk, 48k mem. 
Documentation only i 9.95 

(can he applied to later purchase) 

STOCK MARKET DATA TAPES for TRS-80 Model I ! ! 

Each tape cassette contains one months data for 
the NYSE or AMEX stock of your choice. Data 
includes daily high. Ion, close, and volume 
information. Can be read by any Level II Basic 

program with simple input statements. Available 
for Jan. 1979 to present. Please specify eonth 
and stock name. 

one months data S 5.95 

charting program $49.95 

(plots high, low, close and 2 moving avgs.) 

MicroPhase Systems 
11223 E. 45 St. So. '314 ^123 

Tulsa, Ok. 74145 



TRS-80 CAI 
for Educators. Parents. Managers 



e/ffcie 
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3 levels of text 
detail 

Question models 

mpi choice 

one word ans 



MicoGnome Presents 

CAIWARE 

Tne compulc program 

thai lets you 

AUTHOR 

your own 

COMPUTER ASSISTED 

INSTRUCTION 

on your TRS-80" 



" A trademark ol Tandy Corp 



MicroGnome s CAIWARE >s available on cassette 
(Of 16K TRS 80 m LEVEL u BASIC lor $24 95 
MD residents add $t 25 ta« Order on Master 
Cnarge Visa Certified Cneck v Money Order 
Personal Cnecks require 14 days to clear Software 
warranteed tor replacement only Order Irom 
Fireside Computing Inc 5843 Montgomery Rd 
Elkridge. MD 21227 (301) 7964165 (301) 725- 
9288 




T R S 80 USERS 
Preserve — Protect — Display 

your equipment with 

CRYSTAL CLEAR 
PLASTIC COVERS 

Special offer: Buy both covers & save 

• Keyboard, interlace & CRT . $10 % ea 

• I ine printer S10 9f> ea 

Combination price $19.95 
plus $1.50 postage 
(Indiana residents add 4 I sales tax) 
Crown Plastic Co. 
3746 N. College 317-925-5566 
Indianapolis, IN 46225 *^ 119 ■■■■ 




Preserve — Protect — Display) 

your equipment with 

CRYSTAL CLEAR 
PLASTIC COVERS 

• Myboord U CAT 134.93 *o 

• law prinnr i 14.93 M 

plus S 1 30 pot(09* •octi 
(Inchono r#i zt- : ■, odd 4\ iota tox) 

CROWN PLASTIC CO. 

3746 N. College 31 7-925-5566 

Indionopolis. IN 46225 

Introductory OH*: buy both covers 6- iov» 

Combirtotion price S34.95 
including postage 
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EDUCATIONAL SOFTWARE! 

Level II— Min 4K 
[ALPHA For ages 4-7— teaches 
alphabet recognition: 
Reinforcement — a "happy"] 
face 
[SIGMA For Grades 1-3— A random I 
series of one-digit addition| 
problems (i.e. 4 + 5 = 9) 
Reinforcement — Push the 
puck through the goal 
[Simple to use — No depressing the ENTER] 
I key 

Each $5.95— Both for $ 10.00 



Mercer Systems Inc. 

87 Scooter Lane 

Hlcksvllle, N.Y. I 1801 
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GENERAL 



You too can earn money 
with your computer expertise. 



Part-Time Consultant 



Michel Morin 
15 Jasper Rd. 
Candiac Quebec 
Canada J5R 4E7 



I am an audio-visual technician 
and a computer hobbyist who 
originally bought a TRS-80 to 
play Star Trek and develop a sys- 
tem to play music with an organ. 
I have since become a part-time 
consultant on the TRS-80 Busi- 
ness System. This article is a 
description of a recent project in 
which I am still involved. 

Background 

In October 78, a local Radio 
Shack store manager asked me 
if I was willing to help two poten- 
tial customers who had a prob- 
lem that might be solved by a 
TRS-80 Business System. These 
two customers operated school 
buses and other inter-urban 
buses and wanted to produce a 
set of specialized and complex 
reports. Fifteen of these reports 
were to be completed yearly and 
sent to the provincial govern- 
ment. They were to be based on 
data that the bus operators had 
never compiled in the past. 

After studying their problem 
and the specs of the Radio 



Shack System, I accepted the 
challenge. Both of them placed 
orders for a 32K Business Sys- 
tem with two disk drives and a 
printer. 

At that time, Radio Shack 
Canada was taking orders for 
disk based systems, but nobody 
had ever seen one. My first move 
was to get, by nearly fraudulent 
means, a copy of the DOS manu- 
al that was to come with the sys- 
tem. Until then. I had had no ex- 
perience with Disk BASIC. 

I deciphered the bus com- 
pany's reports and determined 
that I would have to put the 
whole accounting of the busi- 
ness on the system. Since I 
didn't know the first thing about 
the subject, I found some help in 
the form of a younger brother 
who's an accountant. 

Our first decision was to write 
a General Ledger program to 
which we could add others as 
the need arose. The ledger 
would need 235 accounts and 
most of these had to appear six 
times. We created the flow 
charts from scratch and wrote a 
few program lines, while waiting 
for Radio Shack peripherals. 

Finally, in January 79, the disk 
drives arrived at the store and I 
think they were the first ones in 
the Montreal region. 

Problems 

The first problem we had, 



because of our lack of experi- 
ence and problematic instruc- 
tions from Radio Shack was set- 
ting up the system. We thought 
we had the system working and 
decided to make a couple of 
backups of the DOS just in case. 
Alas, Radio Shack didn't have 
diskettes to sell in Canada, so 
we had to buy some Verbatim at 
an outrageous price in the only 
computer shop in Montreal. 

The GL accounts would be 
kept in a random file and the dai- 
ly transactions in a sequential 
file which we'd scrap each 
month, after producing a de- 
tailed journal of accounts. 

The DOS (version 2.1) started 
acting up and on at least three 
occasions zapped all of our 
files, while committing suicide 
itself. After much searching, we 
found that one of the disk drives 
had tracking problems and luck- 
ily we found a replacement for it. 

We had problems each time 
the drives were trying to write or 
read a sequential file and re- 
solved to avoid using them and 
to post transactions as they 
were entered in the ledger. 

Another problem was time. 
One of our programs that gener- 
ated a beautiful report took 
about 12 hours to run because 
of certain characteristics of 
Disk BASIC using sequential 
files. We scrapped that report 
and produced a summary of 



transactions for each session at 
the computer that took a lot less 
time. 

Our handicap in these early 
attempts was Radio Shack's 
version 2.1 DOS. 

Right now, our customers use 
the programs daily and they 
work just fine. Since each trans- 
action is posted as entered, they 
can always generate up-to-date 
financial reports and they love 
that! 

We are currently working on a 
set of programs that will keep 
track of data pertaining to the 
operation of each vehicle, 
which, when combined with the 
General Ledger will yield all the 
statistical information desired 
by the government. 

Conclusion 

This initial experience has led 
me to other customers with spe- 
cial applications problems for 
which I write programs. If a cus- 
tomer has standard applica- 
tions, I encourage him to buy 
the Osborne programs sold by 
Taranto or Computronics and I 
translate them into French for 
his system. 

Why the Osborne programs? 
Because Radio Shack is unable 
to fill its customer orders. My 
first customers are still waiting 
for Radio Shack's Canadian 
payroll program, first promised 
1 Vz years ago. ■ 
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If you've installed some additional 

memory and want to put it to the test— read on. 



Test Your Memory 



Milan D. Chepko 

119 Belleville Court 

Thief River Falls MN 56701 



After adding a disk drive to 
my 16KTRS-80 system, I be- 
gan to feel a "memory crunch" 
because of the DOS and DISK 
BASIC tying up some of the 
RAM. Though Radio Shack will 
cheerfully install another set of 
16K RAM chips for $200, this 
seems a little steep, especially 
now that several companies sell 
kits of the same chips for 
around $70. 

Installing the chips in the Ex- 
pansion Module was relatively 
easy (why do the first set of 
chips go in sockets Z9-Z16 
while the second set go in 
sockets Z1-Z8?), but later I 
began to have some nagging 
doubts about how good my new 
memory really was. I had some 
bad experiences with my old 4K 
RAM boards using 2102s a few 
years ago, so I decided to check 
out the new memory completely 
before entrusting my programs 
to it. 

First, I reviewed the memory 
structure of the TRS-80 system. 
As shown in Fig. 1, the total 
addressable memory space is 
broken into two blocks of 32K, 
the first half residing in the 
CPU/keyboard and the second 
half in the Expansion Module. 

In the CPU, the first 16K is 
used for the ROM chips holding 
Level II BASIC, the video RAM 
chips and the memory space al- 
lotted to the keyboard itself. 

The second 16K is made up of 



eight RAM chips and is gener- 
ally available for programming 
(although several hundred bytes 
at the beginning are used by the 
processor for "housekeeping" 
tasks, so only 15K or so is really 
usable). PEEK and POKE can be 
used to address any of these 
locations, which are numbered 
from to + 32767 in digital for- 
mat. 

In the Expansion Module, 
there is space for a total of 32K 
of RAM in two banks of eight 
memory chip sockets. Each 
bank of eight sockets provides 
16K of RAM when the chips are 
inserted. The addresses (in digi- 
tal format) for this second half 
of memory run from - 32768 to 
- 1, which causes some confu- 
sion at first. The best approach 
is to figure that the location just 
after +32767 is -32768, the 
next is - 32767 and so on. 

Testing the Memory 

Testing the memory turned 
out to be easier than figuring out 
the addresses! Essentially, all 
memory tests consist of storing 
a specific bit pattern at a loca- 



tion, reading it back and com- 
paring the result with what 
should be there. If the results 
are different, an error message 
is generated. 

No memory test could ever 
cover all the possible bit pat- 
terns in a reasonable running 
time, so some shortcuts must 
be used. One effective meth- 
od is to store alternating bit 
patterns like 10101010 and 
01010101 in sequential memory 
locations, then check to see if 
any have been forgotten or dis- 
turbed by their neighbors. If the 
pattern at any location is not as 
expected, there is a defect ei- 
ther in a memory chip or in the 
traces on the board. 

While it is helpful to know 
which bit is incorrect, it is even 
more useful to know which 
memory chip is at fault. Each of 
the eight bits in a memory loca- 
tion resides in different memory 
chips, lying side by side on the 
board. By determining which bit 
is incorrect, we narrow the prob- 
lem down to a specific memory 
chip. 

Once a bad chip is identified, 



it is always a good idea to swap 
it for one of the known good 
chips on the board and run the 
memory test again. If the defect 
moves with the chip, pack it up 
and send it back to the supplier. 
If the defect stays at the original 
location, the chip is probably 
OK, but there may be something 
wrong with the board itself — 
possibly a solder bridge that you 
can find and remove with a little 
searching. 

The program contains its own 
instructions along with REM 
statements to describe the func- 
tion of each section. After deter- 
mining the locations to be 
tested, the program fills them 
with the alternating bit pattern. 
It then goes back and checks 
first for one pattern and then the 
other. 

The pattern is reversed for the 
second pass through memory, 
and whenever a defect is en- 
countered the program 
branches to a subroutine that 
determines which chip is at 
fault. 

There is provision for use of a 
line printer, which can be very 



CPU/KEYBOARD 


EXPANSION MODULE 


16 K 

LEVEL n ROM 
VIDEO DISPLAY 
KEYBOARD 


4K 
RAM 


:•/">•■>- 


« 


I6K RAM 


I6K RAM 


I6K RAM 


16383 
OOOO 3FFF 
000-000 077-377 


16384 

4000 

100-0 


00 


32767 

7FFF 

177-377 


-3Z76B 
BOOO 
200-000 


-16385 

BFFF 

277- 377 


-16384 -1 
COOO FFFF 
300-000 377-377 



(DIGITAL) 
(HEXADECIMAL] 
(SPLIT OCTAL) 



^] MEMORY USED FOR "HOUSEKEEPING" 

vj MEMORY TO BE EXPANDED BEFORE ADDING TO EXPANSION MODULE 

Fig. 1 



80 • 80 Microcomputing, March 1980 

Scanned by Ira Goldklang - www.trs-80.com 



Build your own microcomputer 

as you learn 
computer technology at home. 



New from NRI! 

The First Interdisciplinary 

Home Study Course Ever Offered 

As the microprocessor revolutionizes 
the computer world and microcomputers appear 
almost everywhere, NRI brings you a new, con- 
venient, and effective way to keep up with this 
expanding technology. It's NRI's courses in 
Microcomputers and Microprocessors, created 
and designed exclusively for learning at home 
in your spare time. 

Designed for the New Breed 
of Computer Technician 

It's no longer enough to be just a pro- 
grammer or technician, with microcomputers 
moving into the fabric of our lives as low-cost, 
easily available tools for business and home, 
both the programmer and technician must 
become total professionals. With practical 
knowledge of hardware, the programmer can 
design simpler, more effective programs And 
with advanced programming skills, the tech- 
nician can test and debug systems quickly and 
easily. The NRI course gives you simultaneous 
training in both skills. . makes you one of this 
rare new breed. 

Build Microcomputer, 
Test Instruments 

NRI goes far beyond book learning to give 
you practical, "hands-on" experience. As you 
learn, you actually assemble NRI's designed- 
for-learning microcomputer. It performs like 
the finest of its kind, and features both assembly 
and basic language capabilities. 

Every assembly step's a learning step. 
Using the NRI Discovery Lab® plus the NRI 
transistorized volt-ohm meter and CMOS digital 
frequency counter you also build, you perform 
meaningful experiments throughout your 
course . . . trace circuitry, interface components. 





introduce and correct problems, design your 
own programs, and more. 

The Proven Way to Learn 
at Home 

You don't have to worry with travel, classes, 
or time lost from work when you learn the NRI 
way. As they have for more than 60 years of teach- 
ing technical subjects, NRI brings the material 
to you. You study in your spare time, at your 
convenience, using "bite-size" lessons that 
program material into logical segments for easier 
assimilation. You perform experiments and build 
equipment using kits we supply. And your per- 
sonal NRI instructor is always available for con- 
sultation should you have questions or problems. 
Over a million students have already shown 
the effectiveness of NRI r™ — — — ~ 
training. 

Choice of 
Courses 

Several courses 
are available, depending 
upon your needs and 
background. NRI's 
Master Course in Micro- 
computers and Micro- 
processors starts with 
the fundamentals, 
explores basic electronics 
and digital theory, the 
total computer world, 
and the microcomputer. 
The Advanced Course, 
for students already 



versed in digital electronics, concentrates on 
software and the world of the microprocessor 
and microcomputer. In both courses, you build 
all instruments and your own computer. 

Send for Free Catalog . . . 
No Salesman WiU Call 

Get the details on these exciting new 
courses in NRI's free, 100-page catalog. Shows 
all kits and equipment, lesson outlines, and full 
information, including facts on other electronics 
courses. Mail the coupon today and we'll rush 
your catalog. No salesman will ever call. Keep up 
with the latest technology as you learn on your 
own computer. If coupon has been removed, 
write to NRI Schools, Computer Department, 
3939 Wisconsin Ave., Washington, DC. 20016. 




Nil Schools 

McGraw-Hill Continuing 

Education Center 
3939 wbconsin Avenue 
Washington, DC 20016 

NO SALESMAN WILL CALL 
Please check for one free catalog only 

□ Computer Electronics Including 
Microcomputers 

□ TV/Audio/Video Systems Servicing 

□ Complete Communications Electronics 
with CB • FCC Licenses • Aircraft, 
Mobile. Marine Electronics 

D CB Specialists Course 

□ Amateur Radio • Basic and Advanced 



MOW— ; 



1r-"* 




All career courses 
approved under Gl Bill. 
D Check for details 



D Digital Electronics • Electronic 

Technology • Basic Electronics 
D Small Engine Repair 
Q Electrical Appliance Servicing 
D Automotive Mechanics 
D Auto Air Conditioning 
n Air Conditioning. Refrigeration, & Heating 

Including Solar Technology 



(Pleat Print) 



aty'Smt/Zip 

Accredited by the Accrediting Commission of the National Home Study Council 



179030 



v* Reader Service— see page 147 
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SAVE 



ON ADD-ON 
PRODUCTS FOR 



TRS-80 



The largest family 

of disk drives from 

the largest supplier, 

drives come 

complete with 

power supply and 

cabinet. 

MTl-40 Disk Drive. 35 & 40 track $369 

TF-1 Pertec FD200. 40 track, use both sides $389 

TF-3 Shugart SA400. 35 track, same as tandy $389 

TF-5 MR B51. 40 track $379 

TF-70 Micropolis. 77 track with 195K of storage $439 

TDH-1 Dual sided drive. 35 track $499 




'.'a* :.sk2 10 \'egabv*e (fixed, 
.V nchester T ecnnoiog> 



$5349 



NEW PRODUCTS 

16K Memory $86 

Modem $179 

Expansion Interface 32K $499 

AC Isolator $47.95 

PRINTERS 

DP800 Anodex. 80 column. 112cps $949 

LP779 Centronics 779 $1099 

LP730 Centronics 730 $950 

LP700 Centronics 700 $1395 

LP701 Centronics 701 51 759 

LP702 Centronics 702 51995 

SPW-1 Spinwriter-NEC $2525 



NE W! LINEPRINfER 



BASE 2 



60lPM with tractors.. 



$599 



* DRIVES FOR ANY MICROCOMPUTER * 

Does not include power supply & cabinet 

MOD II DISK DRIVES NOW AVAILABLE 

f-erfec FD200 $282 

Perfec H l 250 (dual head) $399 

Shugart SA400 . unused ) $286 

Shugart SA800 $479 

MPi B52 $349 B51 $279 



SOFTWARE 

Disk Drive Motor Speed Test $19.95 

New DOS* with over 200 modifications and 

corrections to TRS-DOS $99 

New DOS' 40 frock $110 

AJA Word Processor $75 

A^A Bus a •ess Prog/ar*" $250 

^ace? r f ' < 'e Basic $49.95 

Disk Dnve A.ignmenr PrograrT' $109 

Rod* Data Base Program $99.95 

Electric Penc ; $150 

ALL PRICES CASH DISCOUNTED. FREIGHT FOB/FACTORY 

^T^/MCROCC^MPLTH? /a™\ 

lilllliNcoS^rB) ^28 cz^^Apporot, Inc. 



3304 W. MocArthur 

Santa Ana. CA 92704 

(714) 979-9923 



7310 E. Princeton Ave. 

Denver, CO 80222 

(303) 758-7275 



useful if more than two or three 
defects are present. The pro- 
gram directs all output to the 
screen unless the printer is con- 
nected and turned on, in which 
case POKE statements trick the 
processor Into sending the out- 
put to the line printer. The use of 
PRINT" " causes a line feed 
regardless of whether the TV or 
line printer is being used. 

Conclusion 

The only possible problem is 
in using the negative numbers 
to address the memory loca- 
tions being tested, as explained 
above. 

Also, if you are testing a full 
16K block, be prepared to wait 
about 10 minutes. I've found it 
helpful to test for one location 
beyond what I know is there 



(-16384), so that there is 
always an error statement gen- 
erated at the end of each check- 
ing routine. Above all, be sure 
that you protect the Expansion 
Module memory by entering 
'32767' for MEMORY SIZE, or the 
program will try to store vari- 
ables in the same memory you 
are testing! 

In case you have been think- 
ing about testing the 16K of 
RAM in the CPU/keyboard, don't 
bother. Since part of it is used 
•for "housekeeping" and part of 
it contains this program and its 
variables, you can't really check 
all the locations, so any test like 
this would have no meaning. If 
necessary, you could swap 
those eight chips for eight from 
the Expansion Module, and run 
the test again. ■ 



Program Listing 



i»e as printtabu0>-*»« trs-w rcwv test •*•■ print 

118 'BY HILHN D CHEPK0. K D THIEF RIVER FALLS. HN 56781 
129 JULY 1979 

139 0EFINT A-Z 

140 PRINT'THIS PROGRAM MILL TEST THE INTEGRITY OF THE RAN 
156 PP1NT-CHIPS IN THE EXPANSION INTERFACE. DETECTING ANV 

168 PRINT-STORAGE ERRORS AND LISTING THE DEFECTIVE CHIP 'PRINT 

179 PRINT-BEFORE STARTING THE TEST- YOU MUST PROTECT THE BLOCK 

188 PRINT-0F RAM BY ANSWERING '32767' AS THE 'HFJ10RY SIZE' 

198 PRINT :PRINT"THE BOUNDARIES FOR THE EXPANSION RAH ARE 

2W PRINT" BLOCK 1 ■ -32768 -16385 

218 PRINT" BLOCK 2 - -16384 -1 

220 PRINT'tYOU CM ONLY TEST LOCATIONS BETWEEN -32768 AND -1) 

230 PRINT PRINT INPUT-HIT 'ENTER' WHEN READY*; A* 

240 CLS PRINT-ACTIVATE LINE PRINTER (IF AVAILABLE)' PRINT PRINT 

230 '•*• DETERINES NEHORY ADDRESSES TO BE TESTED *•* 

260 INPUT-LOWEST (DECIMAL J ADDRESS TO BE TESTE!/', A< 1/ 

270 IF A(l»-1 GOTO260 

288 PRINT INPUT-HIGHEST (DECIMAL) ADDRESS TO BE TESTED"; A(2> 

290 IF A(2»-l 0OTO288 

380 '**• CHECKS TO SEE IF LINE PRINTER AVAILABLE •*• 

310 IF PEEK(14312)»63 THEN POKE 16414, 141 POKE 16413,5 

320 '*— BEGINNING OF TEST ROUTINE »*• 

338 PRINT PRINT'BEGINNING FIRST PART OF NEHORY TEST 

340 X-178 Y=85 PRINT 00SUB44e 

350 IF J«0 PRINT-NO ERRORS ENCOUNTERED 

360 IF J>8 PRINT -ERRORS AS NOTED 

370 PRINT- -PRINT-PROCEEDING TO SECOND PART OF TEST 

380 X-85 Y-178 PRINT GOSUB440 

390 IF J-0 PRINT-NO ERRORS ENCOUNTERED 

400 IF J>0 PRINT-ERRORS AS NOTED 

410 PRINT- -PRINT-TEST OF NEHORY LOCATIONS -,A(1), "TO ■; A(2), -COMPLETED 

420 POKE 16414.88 POKE 16413.4 END 

438 ••• SETS-UP ALTERNATING BIT PATTERN IN NEHORY ••* 

440 J'0 FOR I-A(l) TO B(2) STEP2 

436 POKE I, X POKE 1*1, Y 

4(8 NEXT I 

478 '•*» CHECKS FIRST BIT PATTERN **» 

480 Z-X FOR I«A(1) TO A(2) STEP2 

498 B*fCEK(I>-IF B<>2 G0SUB578 

see NEXT I 

510 '••• CHECKS SECOND BIT PATTERN ••• 

328 Z-Y FOR I='A<l>»i> TO A«.2) STEP2 

338 B-PEEK<I> IF BOZ GOSUB57B 

540 NEXT I 

550 RETURN 

560 '•+• FINDS THE DEFECTIVE BIT *•• 

570 J-J+l FOR K«0 TO 7 

580 E«lNT<B/2r.K>-2»INUB/2f.lKtl>> 

398 D«INT(Z/2tK>-2*INTCZ/2UK*l>> 

££18 IF E«D GOTO650 

610 PRINT'BIT t";K; -INCORRECT AT LOCATION #M 

628 •»• FINDS THE DEFECTIVE CHIP •** 

630 IF I>-16385 PRINT EXPANSION CHIP Z';8-K; -DEFECTIVE" OOTO630 

640 PR1N1 ' EXPANSION CHIP Z". 16-K. -DEFECTIVE 

C54 IC/T I PP INT- ■ RETUPH 

Mot«: TTm bracket in Himm 580 and 580 is actually I. 
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PROFESSIONAL 

INCOME TAX PROGRAMS 
for TRS-80 




TM 



Accountants, lawyers, tax consultants nationwide, prepared 
over 100,000 1978 Federal tax returns using our system. 

Displays and fills in Form 1040 and related schedules on the 
screen, then prints out the completed forms automatically. 

Change your mind? Make an error? Correct a single entry and 
you have a brand new form with all re-computations made 
automatically. 

No tax system, running on any computer anywhere, has all the 
features of our professional system, and yet— 

Our base program, which does 1040 and Schedule A costs only 

$189.95 

And! You can add schedules for only $37.95 each, customizing 
your system to your requirements. 

DEMONSTRATION CASSETTE $3.95 
(with sample forms) 

Requires 32K System, 2 Disk Drives 

We also have available fan-fold Forms 1040, blank stock, and 
other supplies you will require— all engineered and tested for 
use with TRS-80. 

FREE CATALOG AND BROCHURE TO PROFESSIONALS 

CONTRACT SERVICES ASSOCIATES 

706 SOUTH EUCLID ANAHEIM, CA 92802 

TELEPHONE (714) 635-4055 
• • • 20 YEARS OF SERVICE * * * 
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U4TH 



Techniques for algebraic equation solutions on your 80. 

Equations 



Allan S Jotfe W3KBM 
1005 Twining Road 
Dresher PA 19025 



Sooner or later, you may. as I 
did. explore what your com- 
puter can do to solve algebraic 
equations. There are exotic 
methods and there are simple 
methods. I chose the latter ap- 
proach. 

First I had to determine what 
I could not do, that is, solve an 
equation for its imaginary roots. 
These are roots that involve the 
square root of a negative num- 
ber as part of the root or the en- 
tire root. A sample equation 
with two imaginary roots is 
X 2 + 25 = 0. 

How Many Solutions? 

This still leaves quite a bit of 
territory open for exploration, 
which can start with an equa- 
tion such as X* + 2 = 0. Initially, 
you must recognize that the 
highest numerical value of the 
exponent of the unknown (here 
it is 2) represents the number of 



roots the equation has. Thus an 
equation with X 1 would have 
three roots, and one where the 
highest exponent value is Y* 
would have six roots. 

This does not tell you how 
many of the roots may be posi- 
tive, negative or imaginary. All 
it tells you is how many roots 
should exist. The root (or a zero 
of the equation, as it is some- 
times called) is any value that, 
when plugged back into the 
equation, will prove the equa- 
tion true. For example, the root 
for the equation X - 1 = would 
be + 1 because if + 1 is in- 
serted in place of X, the equa- 
tion is true. 

What we are trying to do so 
far is to define the problem at 
hand. While it is easy to suc- 
cumb to the temptation to initi- 
ate a computer problem by 
playing "kitten on the keys," 
less frustration is encountered 
by first "putting the brain in 
gear." 

Positive or Negative 

We can get at least one more 
set of guideposts by observing 
what 17th-century mathemati- 
cian Rene Descartes had to say 
about what the roots of an 
equation might be. Consider 



the equation 2X J -5X' -4X + 3 
= 0. Descartes postulated that 
if you counted the sign changes 
of the terms of this equation, 
you would be able lo predict the 
maximum number of positive 
roots that the equation might 
have. 

Let's step through the equa- 
tion term by term to see how 
this works. The sign of the first 
term is positive, the second 
term negative, the third term 
negative and the fourth term is 
positive. If we list these changes 
symbolically, + - - + , we 
will see a series of two sign 
changes in total. This means 
that the equation can have a 
maximum of two positive roots. 
This does not mean that it will 
have two positive roots but that 
it can have no more than two 
positive roots. It can turn out 
that it will only have one posi- 
tive root or it may have no posi- 
tive roots 

Descartes then made avail- 
able a simple way of determin- 
ing the maximum number of 
negative roots that the equa- 
tion might have. Consider the 
same equation but reverse the 
sign of any term having the un- 
known raised to an odd power. 
The sign order is now symboli- 



cally: - - + +. which shows 
one sign change 

This means that the equation 
can have a maximum of one 
negative root, with the same 
equivocation as for the positive 
root count — it might have no 
negative roots at all but will, in 
any case, not have more than 
one. 

In applying this method for 
determining the possible num- 
ber of negative roots, do not 
forget that if the variable ap- 
pears without any exponent, it 
really is raised to the one power, 
so that any such term must 
have its sign changed to get an 
accurate count by this method. 

The first step is to arrange 
your equation so that it is equal 
to zero. For example, if our 
equation had been in the form 
2X> - 5X» = 4X - 3. we would re- 
write it in this form: 2X 1 - 5X' - 
4X + 3 = 0. 

Since the TRS-80 demands 
that the equation be entered in 
such a way that it looks like 
this, = 2X»-5X 1 -4X + 3, we 
will do so or its electronic in- 
sides will give us an unwanted 
error message. At the same 
time we will, for the sake of ele- 
gance, use the letter Y in place 
of zero. 
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SPECIAL DELIVERY 



TRS 80* + Electric Pencil 



By adding SPECIAL DELIVERY to Electric Pencil 

you can realize the full potential of your TRS-80! 

A 100% machine language word processor!! 



MAILFORM — Create MAILFILE: A 
complete Name and address list en- 
try/editor program. Instant search 
on any field, complete cursor con- 
trol, optional beeper to let you know 
something is wrong, active tile always 
displayed, search can include num- 
eric only as well as don't care charac- 
ters, just FILL IN THE FORM!! 



MAILRITE — Print letters written 
with the Electric Pencil inserting 
information from a MAILFILE into 
the letter for personalizing and ad- 
dressing. True typist quality using 
your printer. Features: Indents, un- 
derscore, end of page stop, unlim- 
ited insertion from address list, ad- 
dress envelopes and MORE! 



SORT — MAILFORM will sort an 

entire address list in seconds using 

any field as the key. 

LABEL — MAILRITE prints mailing 

labels from MAILFILE. 

CONVERT — Transform your 

Radio Shack Mailing list into a 

MAILFILE! 



SPECIAL DELIVERY (Disk) 99.95 
Electric Pencil (Disk) 150.00 

Phone Orders (2 1 4) 492 05 1 5 

Or write for brochure of our complete line 
of fine software! 




OFTWARE, ETC... "■■^M 

1839 CHAMBERLAIN DRIVE W0 
CARROLTON, TX 75007 -« 



THERE IS ONLY ONE STOCK TRACKER" 
for use with disk trs-80* and apple- 1 1* 
•Stocks* •Options* •Commodities* 

Do you trade in the market? Would you, 

if you could reduce the risk? -- If you 
knew most of your trades should be prof- 
itable?* Then this is for you. 
Designed and used by a regi stered invest- 
ment advisor, it is the computer i lat i on 
of the individual securities selection 
process he has used for the last decade. 
Based on supply and demand factors, it 
tells you when to buy t sell each of the 
securities it tracks. for example: 



Actual Trading Record: Asarco 


Recommendation History 
Common : 


Results* 




6/18/79 BUY 


a $18.75 




9/28/79 open 


a $29.75 


•$11.00 • *50X 


Call Options, 


September 


20th: 


6/18/79 BUT 


a $ .75 




6/28/79 CLOSE 


a $ .81 


•$ .06 • ♦ 8X 


7/23/79 BUY 


a $ .si 




7/30/79 CLOSE 


a $ 1.13 


♦ S .31 • ♦ 38X 


8/13/79 BUY 


a $ 1.31 




9/06/79 CLOSE 


a $ 4.63 


♦$3.31 • »253X 


Call Options, 


December 


2 5th: 


9/20/79 BUY 


a S 3.75 




9/28/79 open 


a $11.50 


♦$7.75 • »207X 



IF YOUR TRADING COULD USE RESULTS LIKE 
THESE, YOU NEED STOCK TRACKER'" ^92 

Printouts made on any interfaced printer 
or displayed on screen. Thorough docu- 

mentation & sample printouts included w/ 
detailed (50+ page) manual. Utility pro- 
grams included. No experience necessary. 
".in. 32K RAH req'd, printer recommended. 
For more information or to order, contact 
your local dealer or HtH TRADING COMPANY 
111 Cleaveland Rd., »20; Pleasant Mill, 
CA 9*523; telephone (415) 937-1030. 

Price: $150.00 • Manual only $35.00 

Custom stock Datapacks available 

•Past results cannot guarantee future 
profitability; recommendations Mill vary; 
market trading entails capital risk. 

TRS-80 is Reg. TH of Tandy Corporation 
APPLE-II Reg. TH of Apple Computer, Inc. 



introducing... 



MAYDAY 




The Uninterruptable Power Supply that.... 

t Prevents loss of memory when power "blackouts" occur. 

• Prevents loss of memory or disk I/O errors when "brownouts" occur. 

• Provides time to continue operating complete system with disk drives 

to finish operations or store information. 

• Will handle most mini/micro computers with power consumption up to 

250 watts. 

• Designed and developed using complete TRS-80 System. 

Protect your Time and Investment 

For price list and detailed specification, contact your nearest Sun-Technology 
distributor or call direct to: 



5ffiL {fun SFecAncJoffi, tfnc. 



Box 210 

New Durham. New Hampshire 03855 
(Manufacturing high technology products since 1970) 



(603) 859 7110 



iS Reader Service— see page 147 
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Y = X J + 3X 2 -10 


+ 1.49 


Y = X»-3X-1 +1.88, 


-.347, -1.53 


Y = X 2 + X - 3 


-2.3, +1.3 j 


Y = X 2 + X-6 


-3, +2 


Y = X 4 + 4X 1 - 6X 2 - 20X - 23 


-4.60, +2.60 


Example 1. 





The Program 

If we have made it this far, it 
must be time for a program. It 
is, but every program has to 
work on some premise that we 
hope will be true and proper. 
Our implied premise is that if 
we find some value of X that, 
when inserted back into the 
equation, will make it equal to 
zero, then that value will be a 
root or zero of the equation; 
hence, at least part of the solu- 
tion of the equation has multi- 
ple roots. 

In essence, we are going to 
"guess" a numberthat we think 
is the solution and plug it into 
the equation to see if we get 
zero upon doing so. Since we 
have available a computer, 
whose strong point is repetitive 
calculation, we can insert our 
guess and have the computer 
either increment or decrement 
the guess in small steps which 
it can do rapidly. 

Program A shows a simple 
program that uses the comput- 
er as a scorecard or a scratch 
pad. I call it the "Let your eye- 
balls do the walking through 
the Yellow Pages" approach. 

When you hit RUN, the com- 
puter is ready for you to input X 
and D. X is your initial guess, 
and D is the increment or decre- 
ment factor you wish applied to 
X. 

An excellent trial guess for X 
is 1, and a corresponding excel- 
lent value for D is 0.1 . This infor- 
mation will speed up your use 
of the program. The only time 
the general choice of 1 for X will 



1C 


CLS 


20 


INPUT X.D 


30 


X = X + D 


40 


INSERT EQUATION IN THIS LINE 


50 


PRINT X.Y 


60 


GOTO 30 




Program A. 



fall short is if 1 happens to be a 
root. You should also keep in 
mind that X and D can be pres- 
ent in various sign combina- 
tions: 

X D 

+ + 

+ - 
- + 
all varieties of which may be 
useful in obtaining the roots of 
the more complex equations. 

Let us start with a simple 
equation to demonstrate the 
methodology. Insert the follow- 
ing equation into line 40: Y = X* 
+ 8X + 12. In TRS-80 form this 
will be: Y =Xt4 + 8*X - 12. 

When we run the program, 
the ? appears indicating that 
we should input our X and D 
values, separated by a comma, 
on one line. As indicated we 
have to make a choice of sign 
for both X and D, so let's choose 
positive values for both. Your 
entry would be: ? 1.,1. 

Now hit RUN and let the 
screen fill with about ten or 15 
lines of X, Y values and stop the 
display by using SHIFT @. Ex- 
amine the listing and you will 
see the following sequence of 
lines. 



1.1 


-1.7359 




1.2 




- .3264 


1.3 




1.2561 


1.4 




3.0416 


1.5 







The first column is X values; the 
second is Y values. Notice that 
the series of Y values con- 
verges toward zero and that 
there is a sign change between 
X values for X = 1.2 and X = 1.3. 
A sign change in the Y col- 
umn shows the value of X that 
will satisfy the equation. At this 
stage of the game, this is an ap- 
proximate answer. To refine the 
answer, we take the value of X 
just before the sign change of Y 
and rerun the program using 
this value for X. To refine the 



precision of the answer, we fine- 
tune our D value, adding at least 
two more decimal places to D 
(if the initial root is less than 1, 
the next D value should be .01). 
Thus D was originally .1 and 
now becomes .001. 

We rerun the program using 
the new X and D values and 
again scan the display using 
the SHIFT @ to control the dis- 
play. This time when we detect 
the sign change, you will see 
opposite the newly determined 
value of X (1.221) that the value 
in the Y column reads -9.39179 
E - 03. Whenever you get a val- 
ue such as this in the Y column 
(i.e., a value accompanied by a 
negative exponent), you can 
hang up your hat and call it a 
day. The computer has delivered 
a value for X that, if plugged 
back into the equation, will sat- 
isfy it to within a gnat's eyelash. 

If you had examined the 
equation and applied Des- 
cartes' rule of sign changes, 
you would have determined 
that there is at least one posi- 
tive root (which we have just 
found) and one negative root. 
Well, how do we get the nega- 
tive root to come out of the 
woodwork? 

Generally, when the positive 
root has been found with X and 
D of 1 and .1, you can usually 
find the negative root by ap- 
plying the identical values but 
with the sign changed. Thus we 
run the program using X= -1 
and D= -.1. 

Now upon running the pro- 
gram you will get a series con- 
verging toward zero and show- 
ing an area where there is a 
sign change between two 
successive lines. When you 
spot the sign change, stop the 
display, remembering that the 
sign change we are looking for 
is only one that takes place in 
the Y column of figures. 

The portion of the display 
where the sign change takes 
place is now listed: 



2 


-12 


2.1 


-9.3519 


2.2 


-6.1744 


2.3 


-2.4159 


2.4 


1.97761 



Thus our rough answer for the 
negative root value of X is 
-2.3, since it is opposite the 



last negative value in the Y col- 
umn before the sign change. 

We can now refine the nega- 
tive root in the same manner as 
we did for the positive root. This 
time our new X is - 2.3 and our 
new D is - .001. When the pro- 
gram is again run, you will spot 
opposite the value - 2.357 in the 
X column the value 6.81877 
E -03 in the Y column. Your cal- 
culation has given you a good 
value for the negative root of 
the equation. 

A brief tabular listing of the 
values around the area of the 
answer shows: 

-2.355 -.0818005 

-2.356 -.0375195 

-2.357 6.81877 E- 03 

-2.358 .0512257 

If you need further accuracy, 
you can make the new X value 
-2.357 and the new D value 
-.00001 and run the program 
again. This time when your Y 
value with the negative expo- 
nent shows up, the absolute 
value of Y will be so close to 
zero that you'll have to split the 
gnat's eyelash. 

As a clinical exercise this 
might be worth doing at least 
once, but for practical calcula- 
tion, it is a poor use of the elec- 
trical juice. It is certain that 
good judgement is better than 
pushing the limits of technology 
just so you wont get that feel- 
ing you have somehow let the 
"machine" down. 

Watching the Xs Go By 

There are equations that will 
start with a series of Y values 
that diverge from zero; in other 
words, as you watch the screen, 
the Y values proceed to get 
larger. This is not always 
caused by an unfortunate sign 
choice for the X and D values, 
although this is the most likely 
cause. 

There are equations where 
the generated Y values do in- 
deed diverge from zero, but if 
you are patient and allow at 
least one screen's worth of val- 
ues to go by, you are often re- 
warded by seeing the generated 
Y values start to diminish in val- 
ue and finally generate a sign 
change in the Y column, which 
means you have found a root of 
the equation. 
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Let us run through one more 
equation to solidify the meth- 
od. Consider X 4 -4X*-6X 2 + 
20X + 9 = 0. According to the 
sign convention, it may have 
two positive roots and two neg- 
ative roots. 

If we first search using X = 1, 
D = .1, we will get the answer 
2.4 at our first sign change 
point. If we then rerun the pro- 
gram using X = 2.4 and D =001, 
we will get X = 2.414. Thus we 
have found one of the positive 
roots. 

Next we can search for an- 
other possible root by using 
X= -1, D--.1. The X value 
this search turns up opposite 
the first sign change in the Y 
column is - 2.1. If we again re- 
fine this by rerunning the pro- 
gram using D = .001, we will 
come up with the answer for 
this negative root of -2.162. 

Our next search will utilize 
one of the remaining two pairs 
of possible X and D sign possi- 
bilities; this timeX=1,D= -.1. 
Running this pair in the pro- 
gram will produce an initial X 
value of -.4, and refining this 
in the same manner as before 
will produce a final X value of 
-.4139. 

With the experience you have 
gained from running this pro- 
gram for many equations with 
known roots, you should know 
that when you have succeeded 
in smoking out two possible 
roots of like sign (here we have 



the two possible negative roots) 
and one root of the opposite 
sign, it usually means that you 
should find the missing posi- 
tive root (in this case) by return- 
ing to the original sign pair that 
produced the first positive root. 
This wasX = 1, D«.1. 

Since you have already used 
the pairing X = 1 and D = .1 to 
produce the first positive root, 
the next guess to insert is two 
times the previous value of X, 
which, in this case, is X = 2. If 
you run these values (keeping 
D = .1), you will see that a posi- 
tive root is indicated, but it is 
the same value as the first posi- 
tive root developed. Once again 
double the last value of X so 
that now X = 4, again keeping D 
as .1. Now when you run the 
program, a positive root of 4.1 
will be produced. You can now 
use X and D values of X = 4.1 
and D = .001 to refine the an- 
swer; the missing positive root 
is 4.162. 

Following this general proce- 
dure, I have found that if the 
missing root is not found with a 
still further doubling of the X 
value, you may be rather cer- 



10 


forX= -5 to 5 step 1 


20 


Enter equation in this line 


30 


Print x.y 


40 


Next X 




Program B. 



tain that the "missing root" 
does not exist as a real root but 
is an imaginary root. That X in 
the equation is raised to the 
fourth power guarantees the 
existence of four roots but does 
not tell you how few or how 
many of them may be imaginary 
roots. 

There exist many algebra 
books that will provide you with 
all sorts of theorems, postu- 
lates, etc., to enable you to prog- 
nosticate just how many roots 
are real and how many are imag- 
inary. However, if you are in my 
ring and have not grappled with 
classical algebra for several 
decades, this could produce 
severe mental strain. I prefer 
the use of the computer plus a 
bit of educated guesswork. 

The technique presented 
here is very simple, taking more 
words to describe than it takes 
time to implement. There may 
come a time in your life when 
you can't find a root of an equa- 
tion, a root that blind intuition 
says does exist. As a fast check 
in such a situation, we can go 
from the simple to the bare- 
bones. Consider the four-line 
program in Program B. 

This will produce a readout 
stream on your video display 
that will stop when the assigned 
limits of X have been reached. If 
you watch the display for sign 
changes in the Y column, just 
as with the previous efforts, 
you will see that the roots in the 



X column will be printed beside 
the last value of Y prior to any 
sign change in the Y column. 

The values for X listed in line 
10 of Program B are practical 
for any equation where the un- 
known is raised to the third 
power or higher. It is obvious 
that a term having the unknown 
raised to the highest power will 
usually be the determining fac- 
tor in fixing the value of the sum 
of the parts of the equation. For 
an equation where the unknown 
is raised only as high as the 
second power, change line 10 
to read: 10 For X = - 9 to 9 step 
-1. 

I hope this will ensure that 
you do not miss a possible root 
in this type of equation where 
the second power of the un- 
known might not be that power- 
ful in fixing the composition of 
the roots. Remember, this 
whole method of solving equa- 
tions depends on your using 
the ability you have to reason, 
coupled with the ability of the 
computer to carry out the re- 
sults of that reasoning process 
in a rapid mechanical fashion. 

I have included a series of 
equations with the known real 
roots (see Example 1). By run- 
ning these samplers, you can 
gain familiarity with just how 
simple the techniques are for 
playing algebra through, what 
my wife has up to now called, 
"your kilobuck etch-a- 
sketch.'B 



BUY AND SELL SOFTWARE 

GAMES»EDUCATIONAL«BUSINESS 
ANY LANGUAGE . . ANY COM P UTER 

HOME SOFTWARE EXCHANGE'S 

PROGRAM OF THE MONTH CLUB 

AS A MEMBER 

You may list as many programs as you wish or, 

the exchange in any computer language 

You receive a catalog ot all programs each year 

& monthly newsletter update 

Each time a me mber buys one ot your programs 

you re ceive a $ 2 00 r oy aitty te e 

Your only obli gation i s to buy 1 (one) program 



a month at the club ra te ot $6 00 per cassette 
program 



To |0in send $6 00 for one year's membership 
along with the programs you wish to list For 
each program please send a cassette ot the 
program, a full listing, and a short description 

ot the program 

You will receive a catalog & your first month's 
order blank Then each month you wiil receive 
an order blank & update. You must buy i 
program a month, but you may buy more 
HOME SOFTWARE EXCHANGE 

1716 DIXIE 0RIVE ^115 

JACKSON. MS 39209 



C/> 

LU 



EDUCATIONAL 

* PERSONAL 

* BUSINESS 



O 



Model 1 TRS-80"" Software 
Basic 1,2, Disk 2.2 & Assembler 

THE DIFFERENT COMPANY 



(/> 

-< 

</> 

H 

m 
Z 

i 
i 

I If you DONT want your software on | 
I high quality cassettes, detailed instruc- | 
I tion manuals, user oriented, guaran- | 
I teed loadable for 30 days andacompa- I 
| ny that will answer user's technical | 
| questions, then DONT COME TO US! j 
| If you DO want GREAT SOFTWARE, ■ 
I need a debugging service or custom 
i program at a very reasonable price and I 
■ a company that takes an interest in the | 
. hobbyist as well as the professional, | 
. then send for our free catalog today! i 
I Mailed 1st class. , 

tfflmfa • Mu-UifyomfitUei ffoftwaw I 

| 'Home of the CWEI.I.ANS— *»113 i 

I BOX 02205, Clavtland, Ohio 44102 J 



SUPER 
DRHPHIC5 



Don't you wish graphics were easy'' Well now they 
are! PICTYPE .ets you type graphic characters into 
your BASIC ptoqram one rectangle at a time No 
need to look up the character codes Moreover 
statements containing graphics can be LISTed and 
EDITed like normal statements Graphics show up 
as graphic? -nor garbage PICTYPE it. .id* . ,1-0, 
aid saves as part of your program, giving you fast 
pnnt-ng. memon, efficient graphics every time you 
rur- ;• So get PICTYPE and program action packed 
graphics !ike a pro 1 



PICTYPf on ca«*iw to. TRS«) Uvd 
BASIC MB inyiumon* po«pa.d 



$19 



©DISCOVERY BAY 
SOFTWARE OQ 
P O Bo» 464 Port Townsend. WA 96368 

'TRS-«0 is a registered trademark ot TANDY CORP 
Bank Cards UUcona ^ 101 rwawr Inquiry* lnvii^.i 
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HARDWARE 



If you intend investigating 

machine code, a hex keypad can make life easier. 



Babybug Keypad 



Dennis Bathory Kitsz 
Roxbury, VT 05669 



If you find machine-language 
programs enjoyable and chal- 
lenging, you might be interested 
in performing a simple yet 
powerful modification to your 
TRS-80. Adding a hexadecimal 
keypad, numbers to 9, A to F, 
plus backspace and enter, is in- 
expensive and easy. 

The decimal numbers func- 
tion normally, and all the 
characters can be used in con- 
junction with Babybug (Feb. 80 
Microcomputing) for quick key- 



ing of machine code. 

Radio Shack offers its deci- 
mal-only keypad conversion for 
around $70; a complete hex key- 
pad is available from Jameco 
Electronics (1021 Howard 
Avenue, San Carlos, CA 94070) 
for $10.95 plus shipping. Since it 
is not encoded, it is easy to 
parallel-connect its keys to the 
main keyboard and, by using 
one dead key, turn your TRS-80 
into a powerful microcomputer. 

I converted my computer in 
about two hours. All you need 
(other than a dose of warranty- 
voiding courage) is some wire, a 
soldering iron, two ten-inch long 
Vi-inch by Vi-inch pieces of 
plastic rod, five-minute epoxy, 
some assorted tools and a hot 
razor blade. 




Photo 1. Keyboard and CPU board after removal of ROMs and 
mounting of hex keypad. Note cable to Level II ROMs at bottom 
center of photo. ROMs are remounted in the feet of the case bot- 
tom. 
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How to Start 

First, carefully undo the 
cabinet (noting the different 
sizes of screws used to fasten it 
together). Take the electronics 
out of the case and set every- 
thing on a spacious work sur- 
face. You will notice that the 
Level II ROMs are fastened to 
the right of the keyboard with 
double-face tape; these will 
have to be lifted off the circuit 
card. 

The interconnect cable to the 
ROMs is long enough to re- 
mount them inside the base of 
the cabinet, in one of the depres- 
sions that serve as feet. If the 
double-face tape has not been 
damaged, they may be fastened 
immediately; if the tape cannot 
be reused, fasten them by some 
other method, but be cautious 
not to cover them as heat build- 
up shortens their useful lives. 

The Jameco Electronics key- 
board base is identical to the 
TRS-80's in height and depth, so 
the two ten-inch plastic strips 
can serve as a rigid trailer hitch 
for the smaller board. Carefully 
support both boards so they are 
parallel and the hex pad meets 
the TRS-80 printed-circuit base. 
Cement the plastic strips in 
place; the vertical alignment of 
both sets of keys should now be 
identical. 

When the glue has set, use 
the plastic shell to design a 
cardboard template of the cur- 
rent key positions and, with the 
aid of a ruler, draw extension 
lines across the right side of the 
template. These become the up- 



per and lower limits of the new 
keypad opening. Align the tem- 
plate with the new double key- 
board assembly and mark the 
vertical positions of the keys, 
allowing about 1/32" additional 
on both sides. This should bring 
you within V* inch of the pilot 
LED. 

Remove the black portion of 
the cover by turning it over and 
snapping it out of the six locking 
tabs along the edge. Using the 
template and a hot razor blade, 
carefully cut an opening, work- 
ing from the face of the soft 
plastic cover. 

This procedure is time-con- 
suming and must be done with 
care to achieve an as-built ap- 
pearance. Double check all work 
to make sure the cover fits over 
both keyboards and that the 
keys are free to move (trim or file 
where necessary). If you have 
made any nicks in the soft 
plastic face, rub them with a 
glass marble and they should 
disappear into the background 
of the face texture. 

Interconnect the Wires 

Now it is necessary to inter- 
connect wires from the hex key- 
board to the main keyboard's 
printed circuit card. Rest the 
keyboard on its face but take 
care not to strain the band of 
wires connecting the card and 
CPU board. Set aside the white 
plastic spacers, and keep the 
board well supported during sol- 
dering. 

For interconnections, I used 
wire-wrap wire because it was 
thin and flexible, although any 



fine wire will do. First, solder all 
the connections at the hex pad 
as shown in Fig. 1. You will be 
soldering to very fine terminals 
which are part of the key con- 
tacts and springs, so be careful 
to avoid excessive solder or 
heat. The solder should flow 
easily onto the gold-clad con- 
tacts. 

Next route individual wires 
from the hex key groups to the 
points printed on the circuit 
card, as indicated in Fig. 1. If 
you have a TRS-80 technical 
manual, you may notice that 
some of the keys do not match 
the wiring on the master sche- 
matic. I have a very early TRS-80 
and have not been able to check 
this difference with other Level 
II machines, so I recommend fol- 
lowing the circuit traces to as- 
sure that your parallel wiring 
matches that of the keys 
pressed. 

Once you are sure all the con- 
nections are properly made, flip 
the board over. Avoid putting 
stress on the keyboard intercon- 
nect cable. Replace the white 
plastic spacers, insert the 
cables to the monitor and power 
supply and power-up the com- 
puter. 

Type ail the characters on the 
main keyboard to make sure it 
operates normally, then type the 
letters and numbers on the hex 
keyboard. Also test the back- 
space (at this point the bottom 
right-hand key is dead). Press 
the button currently marked 



SHIFT (this will be the enter key), 
and the lines of randomly typed 
test characters should certainly 
cause a ?SN ERROR message. 

All keys should now be work- 
ing properly. Any problems will 
occur in the form of incorrect let- 
ters or patterns of repetitive let- 
ters caused by incorrect or 
shorted wiring of the new key- 
pad. If most characters work, 
but some do not, a wiring error is 
likely. 

Recheck all wiring, and if no 
problem is evident, insure that 
the wiring shown in this article 
is correct for your machine. 
(Master schematic differences 
in my unit involved the back- 
space and enter keys.) Check 
also for solder splashes or dam- 
aged printed circuit board 
traces. 

Remove the cables and 
power, gently reinsert the circuit 
cards into place and replace the 
white spacers, the keyboard as- 
sembly and the cover. Take care 
that the LED power light sits in 
the front panel and that all the 
keys move freely. After replac- 
ing the screws and cables you 
are ready to run Babybug again. 

Try the programs described in 
Part I of this article. The new 
keyboard should speed the pro- 
cess along considerably. 

The Control Key 

The absence of specialized 
function keys, on the TRS-80, 
confines the user to type-written 
commands. Its simplicity makes 




Photo 2. Wires run from points on the main keyboard's p.c. card 
directly to hex keyboard. White rectangles are plastic foam that 
helps cushion the author's abusive typing style. 



the TRS-80 a very accessible 
machine, but with that accessi- 
bility have come a few disadvan- 
tages. Sometimes the need 
arises for an escape from a pro- 
gram without BREAKing in, or 
for some additional control over 
a program's execution. The 
dead key on the new hex keypad 
offers those special functions. 

This control key (dead key) is 
valuable when using your own 
machine-language modules. 
This key can send the contents 
of the screen to the line printer; 
convert to lowercase*; direct an 
array of edit commands in a 
word-processing program; call 
up any number of machine-lan- 
guage modules; or obtain 
TRS-80 graphics from the key- 
board. 

Let's first see how this key 
might be used in BASIC. Like the 
shift key, the control does not 
produce a character by itself, 



but changes how the computer 
reads another character typed 
simultaneously. Set up and RUN 
the following BASIC program: 



5 


CLS 


10 


A = PEEK(14464) 


20 


IF A = 128 GOTO 50 


30 


AS = INKEYS : PRINT AS; 


40 


GOTO 10 


50 


AS ■ INKEYS 


60 


IF AS = - GOTO 10 


70 


PRINT CHRSJASQAS) ♦ 101). 


80 


GOTO 10 



As you type, letters will ap- 
pear on the screen as they 
would on the page. With the ex- 
ception of some of the com- 
mand keys like ENTER every- 
thing operates as before. 

Now shift with the new con- 
trol key and type. The screen dis- 
plays TRS-80 graphics! Release 
the control key and normal typ- 
ing resumes. 

How does this work? Each 
key occupies a position in a grid 



-• N I ' 

21 . 

PiN* 



FIH4 *^ 










22 

PlN4 



22 

r ni 



. 



«7 *■ 



*2 ♦■ 



»4 •*- 

H5 *- 



fr? 



I I 



F F •• 



, ' 



' • 



' 






Fig. 1. Wiring of (A) address and IB) data lines on the hex keypad. Lines marked with an asterisk differ from the pin connections on the TRS-80 
master schematic. 
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AddrtM 


PROGRAM 


Description 


Mnemonic 


4C00 


F5 


Save the current contents of the accumulator and the condition (lags 


PUSH AF 


4C01 


3A80 38 


Load the accumulator with the contents of memory location 3880 (where SHIFT and 








CONTROL are located) 


LD A.(3880) 


4C04 


FE80 


Compare the contents of the accumulator with 80 hex (which is the number produced 








when CONTROL is depressed). If it compares exactly, set the "zero" flag. 


CP80 


4C06 


28 04 


If the zero flag is set (meaning here that the CONTROL key was depressed), jump 








ahead four places. 


JPZ.04 






The next two instructions would be executed ONLY if they were not jumped over by 








the previous instruction: 




4C08 


F1 


Reload the accumulator and flags with their original contents before this "patch" pro- 








gram. 


POPAF 


4C09 


C3 58 04 


Jump to 0456, the place where the keyboard scan "switchboard" originally directed. 


JP0458 


4C0C 


3A01 38 


Load the accumulator with the contents Of memory address 3801 , the address of keys 








@. A, B.C. D. E, FandG. 


LD A.I3801) 


4C0F 


FE02 


Compare the contents of the accumulator with 2. the number produced if letter "A" is 








depressed 


CP02 


4C11 


20 EE 


If the result does not compare exactly (i.e.. the "zero" flag is not set), jump back 18 








steps to address 4C01: if it does compare precisely . . . 


JP NZ.EE 


4C13 


C3 00 00 


. . . jump to 0000, the beginning of BASIC 

Program Listing 1. 


JP0000 



wired so the processor inter- 
prets it as a memory bank -one 
line of addresses crossing one 
line of data. The keyboard is 
scanned, and a depressed key 
drops a one into its allotted data 
bit in a memory location. The 
keyboard-scanning subroutine 
in BASIC checks the memory 



locations in order, and, upon 
finding a one, jumps to another 
routine that displays that key's 
character upon the screen. 

There are many additional 
routines to keep keys from end- 
lessly repeating, to differentiate 
between character keys and 
command keys and to keep up 
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with fast typists. 

The memory slot for our new 
key is 14464 (3880H). When the 
shift key is depressed, a one ap- 
pears in this slot's least signifi- 
cant bit (00000001); the control 
key is wired to insert a one in 
the most significant position 
(10000000). 

BASIC'S keyboard scanning 
routine is written to read the 
shift key, but is blind to the new 
control key. The only way to find 
whether the key is pressed is to 
PEEK into location 14464 (line 
10 of the program). 

The result of that PEEK would 
be either 1 (SHIFT) or 128 (CON- 
TROL). Our BASIC program ig- 
nores the SHIFT, displays what- 
ever key is depressed and loops 
back to the beginning of the pro- 
gram. If it finds the control key 
depressed, it goes to line 50, 
searching (using INKEYS) for an- 
other key to be depressed. 

It continues with the above 
loops until it finds both the con- 
trol key and a character key 
depressed. Determining the let- 
ter's ASCII value, the program 
adds 101 (to alter the value to 
that of a graphics character) 
and displays the result. The new 
control key makes this a simple 
way to display both characters 
and graphics. 

A Telephone Switchboard 

To exploit the broad powers 
of this control key, it is neces- 
sary to know a few things about 
the TRS-80 design. The ROM 
(Read-only-Memory) is fixed, 



and contains the BASIC lan- 
guage. It occupies about 12,000 
bytes of space, with some un- 
used areas set aside for future 
improvements. 

Upon power-up, the ROM exe- 
cutes a great deal of housekeep- 
ing, the most important part of 
which is cordoning off a section 
of volatile memory for storing 
temporary information and es- 
tablishing a kind of "telephone 
switchboard" located in the area 
of memory about 1,000 bytes 
long, starting at location 4000H. 

Many of the BASIC subrou- 
tines momentarily jump to this 
area, and then back into the 
BASIC ROM, to a location set up 
during housekeeping. The ex- 
citing aspect of this switch- 
board is that we can patch our 
own call through it! The control 
key will use one of those patch- 
es. 

At the start of BASIC'S key- 
board scan routine, it jumps to 
location 401 D in the switch- 
board to receive instructions for 
its next move; housekeeping 
has inserted 0458 into locations 
401 E and 401 F. We will be 
changing this jump, but before 
we modify anything in the com- 
plex BASIC language, it will be 
necessary to decide precisely 
what we want to do with the con- 
trol key. 

My first use of the control key 
was to gain a new command: 
Return to MEMORY SIZE?, with- 
out turning off the computer and 
losing the contents of memory 
or wasting my only USR(0) loca- 
tion. Program Listing 1 checks 
to see if the control key and let- 
ter "A" are depressed. If both 
conditions are met (in that order, 
as with the SHIFT key), it returns 
to a MEMORY SIZE? condition 
(prepare the program with the 
aid of Babybug). 

After you have prepared the 
program, your next move is to 
patch it into the keyboard scan. 
Since the keyboard's scanning 



Results ol decrement 
Results ol dectement 



05 
Bl 
B5 

ED B0 
10 Nn 



DECB 
ORC 
OR I 

LDIR 
DJNZ00 



Table 1. The ZERO flag is af- 
fected by (among others less 
important for these few simple 
programs) these instructions. 
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and memories, ideal for use with Quick 
Printers Loads fast, easy to use. 
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CHECKBOOK PLUS solves the problem of 
monthly bank-statement reconciliation 
No cumbersome tape record keeping Just 
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MCB-1 $9 95 
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program cannot be modified 
from the keyboard, write the fol- 
lowing line: 

100 POKE 18414,00 : POKE 16415.76 

This is the address 4C00H 
broken into two decimal pieces; 
when you RUN 100, the patch 
will be inserted. At first you will 
see no difference, and all keys 
should function normally; the 
patch is totally transparent to 
BASIC, to programs and to all 
keyboard functions. Unless the 
processor finds the control key 
depressed, it skips right back to 
the scanning routine (the con- 
trol key too will have no effect by 
itself). 

Now depress control plus "A". 
You will be returned instantly to 
MEMORY SIZE? This control- 
plus-letter concept is for- 
midable; each key on the key- 
board can represent the path- 
way to an entire program, that 
is, it can represent a command 
independent of BASIC! 

Challenge Your Skills 

As a challenge to your new 
programming skills and to pro- 
tect some memory, reload Baby- 
bug to create a program that 
performs the following: 

1. The program is transparent to 
BASIC. 

2. The program uses the control 
plus letter "A" to call up the 
white-screen module. 

3. The program uses the control 
plus letter "B" to call up the 
cassette-load module, but loads 
only 255 bytes, then returns to 
BASIC. 

4. The program uses the control 
plus letter "C" to call the "BASIC 
Bounce" module, listens to and 



displays only 255 bytes, then re- 
turns to BASIC. 

To write this program, you will 
need some additional informa- 
tion and a few hints. 

First, do not let your cassette- 
load module overlay its input 
data atop any of your current 
programs. Place it well out of 
the way, in your highest memory 
area. Remember to POP infor- 
mation off the stack as many 
times as you PUSH it on and 
note that every time you call a 
subroutine, the program's cur- 
rent address is PUSHed onto the 
stack. 

Letters A, B and C are in mem- 
ory location 3801 H. A is data 02 
(binary 00000010), B is 04 (binary 
00000100) and C is 08 (binary 
00001 000). 

If you need more loops than 
you have registers, remember 
that the current value of a loop 
can be stored in memory while 
you perform other operations 
and retrieved when it is needed. 
For example, if you start a loop 
in the B register, you can store it 
and use the B register for anoth- 
er function. 

Later, you can store that infor- 
mation and retrieve your loop 
status; decrement the loop's 
value, store it; and again you 
can retrieve the stored infor- 
mation. 

The author wishes to express 
his thanks to Philip K. Hooper 
for his encouragement, and for 
his astute criticism of the soft- 
ware content of this article, as 
well as to Stan Ockers for his im- 
provements to Babybug for non- 
typists. ■ 

Notes to Text 

*An upper/lowercase character- 



generator circuit is already part 
of the TRS-80, but no access has 
been provided. The Peripheral 
People (P.O. Box 524, Mercer 
Island, WA 98040) offer free, ex- 



cellent lowercase conversion in- 
formation. Both hardware and 
software instructions are in- 
cluded, and the conversion can 
be achieved with just a few ICs. 




Photo 3. Finished modifications on the TRS-80 before cover is 
reinstalled. Note the four-conductor ROM cable that runs over top 
of CPU board, and the author's lowercase modification switch at 
bottom. 



Call a subroutine 


CD Lx Mx 


CALL 9999 


Call a subroutine if a zero flag 






Is set 


CC Lx Mx 


CALL 7. ,9999 


Call a subroutine if a zero flag 






Is not set 


C4 Lx Mx 


CALL N7..9999 


Compare the contents of the 






accumulator vlth an Integer 


FE Nn 


CP 94 


Decrement the B register 


95 


DEC B 


Decrement the C register 


#D 


DEC C 


Decrement the HL register pair 


2B 


DEC HL 


Decreaent the DE register pair 


IB 


DEC DE 


Decreaent the BC register pair 


n 


DEC BC 


Inereaent the B register 


94 


INC B 


Increaent the C register 


9c 


INC C 


Inereaent the HL register pair 


23 


UK HL 


Increaent the DE register pair 


u 


INC DE 


Jump to asaory location 


C3 Lx Mx 


JP 9999 


Juap to aeaory location if a zero 






flag la set 


CA Lx Mx 


jp z.9999 


Juap to aeaory location If a zero 






flag is not set 


C2 Lx Kx 


jp NZ.9999 


Juap a relative distance 


18 Nn 


JR 99 


Juap a relative distance if a 






zero flag Is set 


28 Nn 


JR z.W 


Juap a relative distance If 






zero flag is not set 


29 Nn 


JR NZ.99 


Load the accunulator with an 






Integer 


3E Nn 


LD A, 99 


Load the accumulator with the 






B register 


78 


LD A,B 


Load the accunulator with the 






H register 


7C 


LD A,H 


Load the accumulator with contents 






of aeaory location HL 


n 


LD A,(HL) 


Load the accumulator with contents 






of memory location DE 


1A 


LD A,(DE) 


Load the accumulator with contents 






of aeaory location 


3A Lx Mx 


LD A, (9999) 


Load the contents of aeaory locatl 


on 




HL with the accunulator 


77 


LD (HL) ,A 


Load the contents of aeaory locatl 


in 




DE with the accumulator 


12 


LD (DE) ,A 


Load the contents of the HL aeaory 






location with a number 


3b Sn 


LD (HL>,99 


Load the HL register with two 






bytes 


21 Lx Mx 


LP Hi.. 9999 


Load the DE register with two 






bytes 


11 Lx Mx 


LD DE.9999 


Load the BC register with two 






bytes 


91 Lx Mx 


LD BC, 38(39 


Load the B register with a byte 


86 Nn 


LD B.99 


Load the C register with a byte 


9E Nn 


l.D C.99 


Load the B register with the byte 






found at HL memory location 


■16 


LD B,(HL) 


OR the contents of the accumulator 






with the C register 


Bl 


OR C 


OR the contents of the accumulator 






with the L register 


»5 


OR L 


PUSH the two bytes in the HL 






register onto the stack 


F.5 


PUSH HI. 


POSH the two bytes in the AF 






register onto the stack 


F5 


PUSH AF 


PUSH the two bytes in the BC 






register onto the stack 


C5 


PUSH BC 


POP the top two bytes in the 






stack Into the HL register 


F.l 


POP HL 


POP the top two bytes In the 






stack into the AF register 


Fl 


POP AF 


POP the top two bytes In the 






stack Into the BC register 


CI 


POP BC 


Load the aeaory contents of HL 






into the aeaory location DE; 






Increaent HL and DE; decreaent 




BC; loop back if BC not zero 


ED B9 


LDIR 


Decreaent BC; loop back indicated 






distance if not zero 


19 Nn 


DJNZ 99 


Return 


C9 


RET 


Return if the zero flag is set 


C8 


RET Z 


Return if the zero flag is not 






set 


C9 


RET NZ 


(Lx = Least Significant Byte, Mx = Most 


Significant Byte, 


Nn = One- Byte integer) 






Table 2. These instructions are a limited selection of the Z-80 


instruction set; there are nearly 700 commands in total 


though the program can be effectively created with just these. 
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STYLE 



Why write software when you can use the 
inbuilt Level II assembly language subroutine! 

Inside the ROMs 



Bruce E. Stock 
53733rd Ave. South 
Seattle WA 98144 



One of the more fascinating 
aspects of owning a Level 
II TRS-80 computer is knowing 
that buried within it are over 
twelve thousand bytes of lovely 
machine-language routines just 
waiting to ease the load of the 
intrepid assembly language pro- 
grammer. This fascination has 
caused me to spend hours pok- 
ing about in listings, following 
chains of subroutines all over 



memory, to find some of the 
more immediately useful sec- 
tions for my own assembly lan- 
guage programs. The search 
has been in turn frustrating, in- 
structive, and rewarding. In this 
article I hope to share the re- 
wards, while keeping the frus- 
trations to a bare minimum. 

Keyboard Routines 

The keyboard routines are a 
good starting point. Let's begin 
with a top level routine for input- 
ting data into a program. This 
routine is one step removed 
from the INPUT command in BA- 



ENTRY 






POINT 


DESCRIPTION 


REMARKS 


1BB3H 


Prints "'". inputs data 


Data goes into BASIC input butler 241 char max 




un'il enter is hit: dis- 


HL points to location prior to first character on re- 




plays data on screen. 


turn Uses AF. HL DE 


361H 


Same as 1BB3H. less 
prompt. 


As above 


049H 


Returns when a Single 
character has been 
entered 


Character in A Uses AF. DE 


02BH 


Instantaneous read oi 


A = on return il key not pressed, else A = charac 




Keyboard 


ter code. Uses AF. DE. 


010H 


Restart 10H. Advances 
HL, loads A with (ML), 
sets carry (lag. 


C - il alpha. C = 1 is numeric. Uses AF. HL. 


1E5AH 


Processes decimal 
numOet into binary. 


See text. 




Table 1. Keyboard Routine Summary 



SIC. The entry point of the rou- 
tine is at 1BB3H (all addresses 
are given in hexadecimal). A call 
to this location results in a ques- 
tion mark on the screen, fol- 
lowed by a space. The operator 
is now free to input data, which 
is placed into the BASIC input 
buffer. As it's typed, the data 
also appears on the screen and 
you can backspace to correct er- 
rors. 

Terminate the input by hitting 
the entry key. When the routine 
returns, the ML register pair con- 
tains one less than the buffer 
start address. 

Now that the data is in the 
buffer, how do you get at it? Exe- 
cuting an RST 10H (Restart 10H) 
instruction advances the HL 
pointer to the first character en- 
tered (skipping any spaces), 
loads the character into the A 
register and sets the carry flag 
to indicate whether the char- 
acter is numeric (C = 1) or 
alphabetic (C = 0). Each RST 
10H executed loads the next 
character into A (again, skipping 
any spaces) for you to process. 
When the RST 10H returns a 
value of zero, you have reached 
the end of the entered data. If 
you don't want the question 



mark prompt printed at the 
beginning of the routine, enter it 
at 361 H instead of 1BB3H. 

Suppose you don't want a 
whole buffer full of data, but on- 
ly a single keystroke (i.e., the IN- 
KEY$ type function)? A call to 
049H returns when a key has 
been hit. The A register contains 
the character. 

In many cases, you will want a 
routine which returns immedi- 
ately after checking the key- 
board, even if no key is punched. 
In this case, call 02BH. This rou- 
tine will return immediately with 
A = if no key is pressed at the 
instant the routine is called, or 
with A equal to the correct key 
code if a key is depressed. 
Neither of these routines dis- 
plays the character entered. If 
the character must be dis- 
played, use one of the routines 
in the following section. 

The last keyboard routine to 
be discussed takes a decimal 
number in from the keyboard 
and returns with the equivalent 
binary value in the DE register 
pair. This is a very handy routine 
when the input needed is a deci- 
mal integer between 1 and 
65,536. The routine used fol- 
lows: 
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ADDRESS 


DATA 


MNEMONIC 


COMMENT 


5000 


21 50 50 


LD HL.5050H 


. load pointer 
into HL 


5003 


CD A7 28 


CALL 28A7H 


; output message 


5006 


CD B3 IB 


CALL 1BB3H 
(process input) 
End 


. get input 


5050 


59 4F 55 52 


YOUR 


message 


5054 


20 40 4F 56 


MOVE 




5066 


45 0D 00 


CR 




Table 2. Ar 


example of the use of the message routine. 



CALL 1BB3H 
RST 10H 
CALL 1E5AH 

The first instruction gets the 
data into the input buffer. The 
second advances HL to point to 
the first character that was en- 
tered. The last processes all en- 
tered digits into a binary value 
which is left in DE. The three rou- 
tines taken together use the A, 
DE, and HL registers. 

Table 1 summarizes the key- 
board routines. The Remarks in- 
dicate which registers are util- 
ized by the called routine. You 
should save these registers if 
your program is also using 
them. 

Screen Routines 

The next series of routines 
deals with getting data onto the 
screen. We begin at the top 
again with a routine that prints a 
whole message on screen. Level 
II uses this routine to print the 
MEMORY SIZE message, as 
well as several others. To use 
this routine you must have a 
message stored somewhere in 
memory. 

The message is a string of 
ASCII characters and must ter- 
minate with a byte containing 
zero. It may also contain control 
codes or graphics codes, but no 
quotation marks. First, the HL 
register must be loaded with the 
address of the first character of 
the message. Then a call to 
28A7H does the rest. 

Table 2 shows how it is done. 
In the example, the message 
"YOUR MOVE" is being output 
to prompt an input to a chess 
program. The processing rou- 
tine following the 1 BB3H call de- 
codes the move input. The pow- 
er of this call should not be over- 
looked, since, by including car- 
riage returns, tab codes and so 



forth in the message, it is pos- 
sible to format a complete dis- 
play with a single call. 

Now, let's display a single 
character at a time. Suppose 
that 049H has been called to get 
a character in from the keyboard 
and now it must be displayed on 
the screen. Call 32AH. This rou- 
tine will take whatever is in the A 
register and print it on the screen 
without disturbing data in any of 
the other registers. The routine 
at 033H does almost the same 
thing, but it disturbs the DE reg- 
ister pair. These routines are 
good for many functions, for ex- 
ample, to shift to thirty-two (32) 
characters per line, just load 
17H into the A register and call 
32AH. 

The last screen routine is 
short and sweet. A call to 1C9H 
clears the screen and sends 
home the cursor. The cursor 
may be turned on or off by load- 
ing OEH or OFH, respectively, in- 
to A, followed by a call to 32AH. 
The screen routines are sum- 
marized in Table 3. 

Cassette Routines 

Since Level II has a nice com- 
plement of cassette-related rou- 
tines (CSAVE, CLOAD, INPUT #, 
etc.), it may seem unnecessary 
to go into more here. However, 
the routines described here al- 
low input and output formats to 
best suit the situation. They can 
be used to improve the efficien- 
cy of data storage, or, as I have 
done, they may generate tapes 
that can be read by the BASIC 
SYSTEM command. 

First turn on the cassette mo- 
tor and record the synchroniza- 
tion pattern. This is done with a 
call to 284H. The synchroniza- 
tion pattern consists of 256 
zeros, followed by a single byte 
containing the value A5H. Now 



that the motor is running and 
the sync pattern is on tape, 
record some data. Load the byte 
to be recorded into the A regis- 
ter and call 264H. When the final 
byte of data has been recorded, 
a call to 1F8H turns off the cas- 
sette motor. Be wary of doing 
too much data processing be- 
tween output of data bytes, 
since the delays introduced 
could foul up the synchroniza- 
tion when the tape is read back. 

To read in data which has 
been written on tape requires a 
call to 293H. This routine will 
turn on the cassette motor, read 
the leader until the A5H sync 
byte is found, print two aster- 
isks in the upper right corner of 
the screen and then return. The 
following data can now be read 
a byte at a time by repeated 
calls to 235H. Again, don't 
spend too much time process- 
ing bytes between calls to 235H, 
or you may lose synchroniza- 
tion. When all data has been in- 
put, a call to 1F8H will turn the 
motor off. 

If the idea of blinking the right 
asterisk appeals to you. each 
call to 22CH will reverse its 
state, on to off, or off to on. (The 
CLOAD and SYSTEM commands 
blink the asterisk each time a 
BASIC statement is read in or 
each time the checksum value is 
verified.) 

Note that all the motor con- 
trol routines described above 



are intended for use with the 
cassette plugged into the key- 
board, not into the expansion 
box. 

Table 4 summarizes the cas- 
sette routines. 

Conclusion 

The use of these routines 
should considerably simplify 
the I/O sections of your next pro- 
gram. Bear in mind, however, 
that all this does not come total- 
ly free. Most of these routines 
use pointers and buffers which 
reside within the area of RAM 
dedicated to BASIC. As a result, 
you can't locate programs in ad- 
dresses below approximately 
4300H, or you will disrupt the 
pointers. Also, several of the 
routines have additional fea- 
tures beyond those described. 
so, if you deviate significantly 
from the examples given, the re- 
sults may be confusing, to say 
the least. Lastly, since the BA- 
SIC stack is used, the MEMORY 
SIZE cannot be set too low in 
value, or insufficient stack 
space will result. 

These few restrictions are a 
small price to pay for I/O that is 
nearly as easy as using PRINT, 
INPUT, and INKEY$. With these 
routines available, the only real 
work remaining is to decide 
which of the programs you've 
been putting off will be the 
first you'll write incorporating 
them. ■ 



ENTRY 






POINT 


DESCRIPTION REMARKS 


28A7H 


Generalized massage output routine 


HL must point to message Message 
must end with 00 Uses AF. BC. DE. 
ML 


32AH 


Put one character on screen 


Enter with character in A Uses AF 


033H 


Put one character on screen. 


Enter with character in A Uses AF. 
DE 


1C9H 


Clear screen 


Also sends home cursor to upper 
left corner 




Table 3. Summary of Screen Routines. 


ENTRY 






POINT 


DESCRIPTION 


REMARKS 


284H 


Turn on motor, write leader 


Uses AF Leader is 256 zeros, fol- 
lowed by A5H 


264H 


Writes byte to tape 


Byte must be in A 


1F8H 


Turn oft motor 




293M 


Reads leader and locates sync byte 


Turns motor on Sync = A5H Uses 
AF 


235H 


Reads byte from tape 


Returns with byte m A Uses AF 


22CH 


Blinks rightmost asterisk 


Uses AF 




Table 4. Summary of Cassette Routines. 
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HARDWARE 



A real work, real time 

application project for handy 80 owners. 



A Home Brew Interface 



C.R. Wince 
27 Ventnor Way 
Ottawa, Ontario 
Canada K2J1M2 



After becoming the proud 
owner of a TRS-80 system 
in April of 1978, I soon realized 
that the Level I, while an excel- 
lent teaching aid of the BASIC 
language, left much to be de- 
sired when it came to making 
my computer more than just an 
expensive toy. After waiting anx- 
iously for several months (due, I 
suppose, to the extremely heavy 
demand), my Level II arrived and 
was installed. 

Now I could really make my 
"toy" earn its keep, or could I? 
Yes I could, providing I put out 
another $439 (Canadian) for an 
expansion interface. But wait, 
all that would give me would be 
a real-time clock, mini-disk con- 
trollers, cassette and line printer 
controllers and "space for an 
additional PC board" (to add 
whatever), according to Radio 
Shack advertising. What about 
my home climate control, model 



railway control and other appli- 
cations? 

There had to be another way, 
and I hope that after reading this 
article you will agree with me 
that there is another way, per- 
haps even a better way, at least 
for hobby use. 

Introduction 

This article will describe an in- 
terface unit for the TRS-80 Level 
II that will provide the following 
features: 

1) An interface board to the 
TRS-80 itself. 

2) An output board having up to 
16 8-bit parallel output ports. 

3) An input board having up to 16 
8-bit parallel input ports. 

4) A TTY interface board. 

5) A home climate control 
system. 

6) A model railroad speed con- 
trol system. 

I would like to point out here 
that I am no expert in electronic 
circuit design. In this article, 
most of the circuits have been 
previously described in other 
books and publications, in- 
cluding Microcomputing. I have 



merely put them together in one 
package as simply and as eco- 
nomically as possible. However, 
the circuits have been tested 
and do work; in fact, they are in 
daily use. 

To enable novices to under- 
stand the workings of the inter- 
face unit I have arrowed per- 
tinent lines in the figures to 
show the directional flow of 
data on that particular line. 

The unit has been built on five 
separate PC boards (excluding 
the power supply). I use the term 
PC boards loosely, as these 
boards were handmade, and on- 
ly the common lines such as 
data bus, address bus and 
power lines were etched; other 
lines such as enable lines were 
wired. 

Edge card connectors used 
were of the 62-pin type since 
they were the least expensive 
and most available at the time; 
consequently, pin connections 
given are for these 62-pin vari- 
ety. Others such as 44 pin could 
be used providing they have 
enough pins to accommodate 
all lines entering or leaving the 



board. The edge card connec- 
tors were mounted on a piece of 
wood and like-numbered pins for 
the +5 V, ground supplies, the 
data and the address lines were 
multiplied from one connector to 
the next. 

I strongly recommend the use 
of sockets for all ICs, as trouble- 
shooting is made so much 
easier if you can simply replace 
a suspect IC to localize the prob- 
lem. To emphasize this point, 
when I first plugged in the inter- 
face board, I had problems on a 
new IC, which seemed to work 
OK on static bench tests but 
failed in the unit. By simply ex- 
changing two ICs, the problem 
was localized in minutes. In ad- 
dition, don't forget to use .01 uF 
bypass capacitors on about 
every fifth IC. 

Interface Board 

To allow for expansion, I de- 
cided to use 74LS367s to buffer 
all signals coming from the 
TRS-80 (see Fig. 1). I initially buf- 
fered the data bus in both direc- 
tions, but found that this caused 
problems because the interface 
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unit bus is, in effect, parallel 
with the internal TRS-80 bus, 
and each time an input to the 
Z-80 processor is effected (e.g., 
from memory), it also inputs 
from the interface unit. 

Since the interface unit data 
bus had no signal on it, the buf- 
fers interpreted this as a high (or 
a 1). This high caused errors 
because at times it was trans- 
ferred to the Z-80, overriding the 
low (or 0) that should have been 
there. Therefore, in the final 
design presented here the data 
bus is buffered in one direction 
only— out to the interface unit. 
Unfortunately, this results in 
two data buses in the interface 
unit: one in (not buffered) and 
one out (buffered). 

This type of arrangement is 
not uncommon, of course, and 
presents no problems, except 
for some additional wiring. Buf- 
fered lines are denoted by the 
"B" following the line designa- 
tion (e.g., D6B means that data 
line 6 has been buffered). 

The interface board is con- 
nected to the TRS-80 by means 
of a 40-wire cable. At the TRS-80 
end an AMP P/N 88I03-I card 
edge connector (or equivalent) is 
required. At the interface board 
end I chose to cable directly to 
the sockets holding the ICs. 

This has presented no prob- 
lems, but connection could be 
made to the interface board 
card connector if desired (if 
enough pins are available). 
While two 20-wire ribbon cables 
would seem desirable and 
easier to connect on the AMP 
P/N 88I03-I, my unit works suc- 
cessfully using regular 40-wire 
cable about 12 inches long. 

The Interface Board itself can 
be described in four separate 
sections: 

Data Bus Buffers. The data 
bus (D0-D7) is buffered by ICs a 
and b. As mentioned earlier, on- 
ly data to be output is buffered; 
input data is presented directly 
to the TRS-80 without buffering. 
The buffers are enabled by IC g, 
which provides a low signal 
whenever the OUTB or WRB 
control lines go low. To avoid 
overloading these buffers, no 
more than 40 output ports 
should be used unless addi- 
tional buffering is provided. 

Address Bus Buffers. The ad- 



dress lines (A0-A15) are buffered low signal from any one of the lines from the TRS-80 are what I 
in much the same way as the four control lines OUTB, WRB, refer to as control lines. Once 
data lines. The buffers are INB, RDB. again I chose to buffer the con- 
enabled by IC h on receipt of a Control Lines. The remaining trol lines that are output from 
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Fig. 1. Interface board. 



80 Microcomputing, March 1980 • 97 



the CPU; the one input line, INT, 
is not buffered. I decided not to 



buffer t he WAIT, TEST and 
SYSRES lines, since I could fore- 
see no use for them in the near 
or even distant future; however, I 
wired them to the interface 
board just in case, so they could 
be buffered if desired in the 
same way as other lines. 

The control lines are buffered 
by ICs e and f. Note that there 
are three GND lines. These 
should be connected to the GND 
of the interface board power 
supply. The line connected to 
pin 39 of the TRS-80 edge con- 



nector warrants mention here. 

In the Level I manual (page 
228) this line is shown con- 
nected to +5 V in the TRS-80. 
Prior to having my Level II in- 
stalled, this was, in fact, the 
case; however, after the installa- 
tion of the Level II, I noticed that 
the land to pin 39 had been cut 
and pin 40 had been strapped to 
pin 39, making pin 39 a ground 
line. 

Since I do not know the state 
of other units with regard to this 
pin, I recommend that this pin 
not be wired. Of the nine control 
lines wired, only two are used by 



circuits described in this article 
—the OUT and IN lines— how- 
ever, the board has been de- 
signed to allow for the easy ad- 
dition of memory and an inter- 
rupt board at a later date, which 
require the additional control 
lines. 

Output and Input Port Initial 
Selectors. Whenever the TRS-80 
executes an input or output 
(port) instruction, the port ad- 
dress is placed on the lower 
eight bits of the address bus 
(A0-A7). At the same time, the 
OUTB line (on an OUT instruc- 
tion) or the "INB line (on an INP 
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Fig. 2. Eight-bit parallel output port board (only three ports shown). 



instruction) is enabled. The in- 
put or output port initial selec- 
tors (IC i or j) are selected by 
these lines. This causes the high 
four bits (A4-A7) to be decoded 
by the selected IC i or j, which 
are 74154, four line to 16-line 
decoders. 

The output of the 74154 is us- 
ed to select a particular input or 
output board where the final 
port address is decoded. Thus 
using this configuration, up to 
16 input and 16 output boards 
could be selected, providing ad- 
ditional buffers are used. 

In the design presented here 
only one input and one output 
board is used, each one contain- 
ing ports 0-15. To select addi- 
tional boards, simply use the 
proper output from the 74154s 
to select the desired board (e.g., 
to select ports 16-31. the output 
from pin 2 of the relative 74154 
would be used). 

Output Port Board 

The output port board (see 
Fig. 2) provides up to 16 8-bit 
parallel output ports. In my con- 
figuration I have used ports to 
8, since this was the physical 
limit of the size of the board I 
have available. 

The board is selected by the 
OUTSELO line from the interface 
board. This enables IC ma 
74154, which now decodes the 
four bits presented to it on the 
A0B-A3B lines. 

The output from IC m is a low 
on one of the 16 output lines, 
corresponding to the binary 
value of lines A0B-A3B. This low 
is inverted and subsequently en- 
ables a pair of 74LS75 quad 
latches. The data on the DOB- 
D7B bus is now latched by the 
74LS75 quad latches. The true 
data is now held by the latch and 
can be used to control external 
devices. The use of the edge 
card connector pins is left to the 
discretion of the user. 

Input Port Board 

The input port board (Fig 3) 
operates in a similar fashion to 
the output port board. The input 
board is selected by the INSELO 
line from the interface board, 
enabling the 74154 to decode 
the final port address, accord- 
ing to the data on the A0B-A3B 
lines. The output from the 74154 
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PUT YOUR TRS-80* 
TO WORK! 

SET TYPE! 



SAVE the TIME and EXPENSE of having 
copy re-keyboarded. You compose text for 
books, publications, catalogs, price lists, di- 
rectories, reports, etc. We convert it to high- 
quality phototypesetting! 

FAST SERVICE. BIG SAVINGS. 
Five user- specified type faces and fourteen 
sizes on line. Change faces or sizes within a 
line. Line lengths to seven and one-half 
inches. Set type flush to the left or right, 
centered, or justified. Automatic insertion of 
space or leaders. Special characters More. 

SIMPLE COMMANDS. 
TRS-80* with lower case modification and 
The Electric Pencil** are required. Text files 
may be transmitted via telephone with op- 
tional disk drive and modem for even faster 
turnaround time. 

Our Manual For Microcomputer Type- 
setting, which includes instructions, ex- 
amples and type specimens is $50.00. Ship- 
ped within 24 hours. Return within 10 days 
for full refund if not satisfied. VISA and 
MASTER CHARGE accepted, give card num- 
ber and expiration date. 

BROWN GRAPHIC PRESS 

2488 Summit Street. Columbus. Ohio 43202 
614/262-3491 ^94 

Text for this ad was composed on a TRS-80' 

•TUS-80 is iViOt Turk o'rrr 'dtiflyCoic 
••IHb ELECTRIC PENCIL is." irjdrmark o' Micnaf I S'-raycr 



STOCK MARKET •TRADER 
ENTREPRENEUR 

LETTER PROCESSOR - 

The LETTER PROCESSOR is a multi-purpose utility 

program. With it, you generate multiple copies of notes, 

receipts, manuscripts, and letters .You have the choice 

with receipts and letters of having each personally 

addressed. The names and addresses may be input 

from either the keyboard or cassette. 

For use on the TRS-80 lev 2 I6K. Please remit $ 1 5.52 

ACCOUNTING ANALYSIS SYSTEM - 



This system performs simple double entry bookkeeping. 
There are two fixed accounts in addition to any the user 
may create. One is under assets called cash on hand , 
the other isunder liabilities called debt toowner. 
Automatic second entries are made to the appropriate 
of these two accounts by one of the two system pro- 
grams when updoting the data base .The program quier- 
les the data base and produces a Balance Sheet and 
a Profit -Loss statement. 

TRS-80 lev. 2 l6Kand PET. Please remit *20°°.. 
STOCK MARKET ANALYSIS SYSTEM - 



Technical analysis ,12 daily and 15 weekly Indicators 
for the stock market enthusiast. This system signaled 
the October 78 debacle . For* 25 .2° you receive two 
programs plus data base and 27 page detailed in- 
struction manual . 

Please indicate : TRS-80 lev. I or2 1 6K or PET* 25.92. 
OPTION ANALYSIS SYSTEM - 



This system is strictly for the market speculator. Work- 
ing with price, calculated volatility, and calculated 
average daily premium , this system picks the best buys 
from 75 or more options. Judgement by the analyst is 
required. For $35. oo you receive two programs plus 
example data base and instruction manual. 
Please indicate: TRS-80 lev.2 i6KorPET.»35.9P. 
STOCK MARKET FINANCIAL ANALYSIS SYSTEM- 



Includes two programs and hard copy instructions for 
better control of your stock and option transactions, 
For $20. 52 , you receive soft ware with eight analysis 
routines. Two of these routines are stock transactions 
which made money and option transactions which made 
money. Six more program routines exist with some 
consideration given to taxes. Please indicate ■ 
TRS-80 (ev. 2 >6K » PET* 20.98. • 80 

Distributed by: STEVEN E.SHAW, RE 

IPO. Box 1707 
Tampa , Florida 33601 
is a registered trademark of TANDY CORP." 




me 

4 



Try a Really Different Kind of Software 
for Your TRS 80. PET, or APPLE ! 




(if »*& btMtrdb with) a tMitd id dastardtv 
robbers in their mountain lair in the 
l><*lrslnn«-s ol Rv». You explore the 
c Mill shown on vour video display and 
vanquish the monsters in re<il lime. You 
have ju*l 20 minutes to recover the pre- 
i kmi« I ; i . ttorM . befi it '■<-■■ (■•••■I n pa 

Mon*l*r»— Mele«»— Magic' 

Che Uatestoaes nl Ryss ininidiii c. \i>u 
10 tin- xuperlativ.- Dl.'S-rONQlT-ST game 
system Other game* in the %vrir% nut*, pit 
you against an rvil wizard or tlw frhjhtful 
insectoid monsters ol the sod Apshai. In 
the Dateslaae* your main opponents are 
human, but look out lor other nasty critters 
lurUina in the darknes* Ymi have 14 different 
commands ranojnq Irom moving, (as fast or 
as slow as you like so long as you don t nrr 
yourself out) to searching the walls lor 
secret doors 

For Just $14 95 you get Ihv Dateetonca ol 
•tyn on cassette ready to play, and a superbly 
sllusl rated booklet that tells you all about I he 
game. Please specify the version you want — 
IKS-BO (lev.H II, Ink). It. I t I6K old or new 
ROMS), or APPLE (32K Applesoft > ^ ^ 

Ask your dealer or send today to 

AUTOMATED 
SIMULATIONS 

Depl R' 
PO Box 4232 

Mountain View. Ca 94040 
California residents please add 6 » sales tax. 




!!NOW AVAILABLE!! 
I NDEX 

Sequential 

Access 

Method 

* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

* Add Records to Disk Files in Any Sequence 

* Variable Key Length From 1 to 50 Characters 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

- Easier Program Development 

• Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- Improved Performance 



ISAM SUBROUTINES 
SAM UTILITIES 



Documentation 

On Diskette $50.00 



- PLUS - Free Mailing List Sample Application 

Add 6% Sales Tax tor California Orders 



TRS-80 MODEL I A II SOFTWARE FROM: 

Johnson Associates -or- 24 Hour Order Line 
P.O. Box 1 402M For Bank Card Sales 

Redding, CA 96001 (916) 221-0740 

WRITE FOB FREE CATALOG ,^0= 



H 



ardware 
ackers— 



saves $ WITH TESTER -80 

Hobbyists — Turn your TRS-80' mloan IC Tester with 
TESTER-80. 

Select useable chips from the assortments ol 
bargain basement chips available from many 
sources. Test suspect chips from problem boards 
TESTER-BO. plugged into your TRS-80" expansion 
connector will test nearly all commonly used TTL 
and DTL Integrated Circuit chips, from 14 pin to 24 
pin. A master control program is loaded from your 
cassette interface, it then loads in the individual IC 
test programs and performs a lull functional test of 
the chip inserted in the test socket each time you hit 
ENTER. 

TESTER-80. Master Control Program, TESTER-80 
Hardware Checkout Program and Test Programs for 
21 commonly used TTL ICs $179.00. Allow approx. 
six weeks for delivery. TEXTOOL socket $10.00 extra. 
Additional IC test programs $1.25 each approx- 
imately six to a cassette). 

Test programs currently available for over 80 differ- 
ent TTL ICs. more on the way. Updated list on re- 
quest. 

S-SYSTEMS P.O. BOX 62 

PALM BAY, FL 32905 

(305)-725-1336 

< ► 

" IRS-80 is a trademark ol Tandy Corp ^ ^ 



tS Reader Service— see page 147 
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(IC o) strobes the selected input 
port (IC n), and the data present 
on the input lines is transferred 
to the data bus. Again, due to 
physical limitations, my board 
only has nine input ports. 

Either 74LS367 or 74LS368s 
can be used as the input port; 
the pinout for either is identical. 
The only difference is that the 
74LS368 inverts the data pre- 
sent on the input lines, whereas 
the 74LS367 does not. This can 
be useful. 

Imagine a port (x) with 
74LS367s and only one input, bit 

0, on that port being used. Per- 
forming a y = lnp(x) instruction 
will result in y having a value of 
254 or 255, depending on 
whether the input is high or low. 
The other seven inputs are seen 
as high by the TRS-80. 

However, if 74LS368s are 
used, then the highs on bits 1-7 
will be inverted and seen by the 
TRS-80 as low or 0. Consequent- 
ly, y will now have a value of or 

1 . This does make programming 
a little easier. 

Now that we can input and 
output to the TRS-80, a whole 
new world has opened up! The 
following are three of the uses 
that I have successfully tried to 
date, obviously there are many 
more. 

TTY Interface 

Shortly after completing the 
interface board, I purchased a 
Model 33 at almost bargain- 
basement price (even in our de- 
valued Canadian dollars!) from 
a local dealer at a clearout sale. 

I constructed the TTY board 
(see Fig. 4) in a couple of even- 
ings. It uses a popular UART, the 
AY-3-1015, and was selected pri- 
marily because of the single 5 V 
supply required. Other UARTs 
would probably work just as 
well. Whichever UART you pur- 
chase, I suggest you obtain a 
copy of the specification 
sheets, as many variations are 
allowed (e.g., parity, number of 
stop bits, number of bits/char- 
acter, etc). 

To list the numerous varia- 
tions here would be too lengthy; 
however, the circuit as shown 
will run a Model 33 Teletype at 
110 baud, 20 mA current loop in 
half duplex operation. No pro- 
gramming is necessary to con- 
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vert the serial data to parallel or 
vice versa, as this is done by the 
UART. 

The 555 timer circuit supplies 
clock pulses at 16X the desired 
baud rate; therefore, the clock 
frequency for 110 baud is 1760 
Hz. The actual serial data is 
transmitted to and received 
from the TTY by the two 4N26 
optical couplers and the 2N2222 
transistors. These couplers pro- 
vide electrical isolation between 
the TTY and UART. 

At the start of any program 
that will input or output data 
through the UART, an OUT 11,0 
instruction should be used to 



reset all internal UART registers 
and flags to 0. 

To input data from the TTY, an 
INP9, (x) instruction will enable 
the SWE-0 line (status word 
enable). If bit 1 is a 1, the DAV 
(data available flag) line will be 
high, indicating that the UART 
does, in fact, have data to input. 
An INPIO(x) will enable the RDE 
line (received data enable) and 
will result in the data being 
placed onto the data bus. 

Following this, an OUT 10,0 
sho uld be executed to enable 
the RDAV line (reset data avail- 
able flag). Obviously, to ensure 



— <- 



/\ /N /\ /\ /\ /\A/N 

FROM OTHER INPU- PORTS 



r ROM 
IN'ERFACE 

BOARD 



20^- 
22^- 
2«->- 



■ 9-> 



5 



TO INPUT 
PORTS II-I8 ; 
1 1 F jsed: 



that no input is missed, these in- 
structions should be contained 
in a loop, with a branch out only 
when a character is read. 

To output data to the TTY an 
INP9,(x) instruction will again re- 
sult in the status word being 
output on the data bus. This 
time, however, we are interested 
in bit 0, which will be the TBMT 
flag (transmitter buffer empty). 
If the TBMT flag is a 1 then the 
data may be output to the UART 
for transmission. To do this, an 
OUT9,(x) instruction is required. 

Note that during transmis- 
sion from the UART the EOC line 
on pin 24 goes low. This keeps 
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Fig. 3. Eight-bit parallel input port board (only three ports shown). 
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Fig. 5. Furnace control. 



the output from the 7400 high, 
which prevents the UART from 
seeing the transmitted char- 
acter on the receiver side (pin 
20). 

Three other flags are output 
on the data bus: the OR 
(overrun), FE (framing error) and 
PE (parity error). These can be 
checked by software if required, 
but this is not absolutely neces- 
sary. 

Home Climate Controls 

Programmable timers that 
will turn down the thermostat 
setting at night are available, 
however, the cost of two more 
thermostats is even less, and 
besides that, it gives your 
TRS-80 something to do while 
you are working! 

My house has three levels, 
and so a thermostat on each 
level is enabled by a signal from 
an output port under program 
control. As a safety feature, I 
have wired three outputs 
through a plug and socket 
arrangement, so that in the 
event of a failure of the com- 



puter, by disconnecting the 
plug, all three thermostats are 
automatically enabled (see Fig. 
5). (There's nothing worse than 
trying to fix a program bug when 
you can't see the monitor for the 
ice crystals!) 

The triac— I used one from my 
junk box, as the voltage and cur- 
rent demands are minimal 
(check this on your unit)— turns 
on the furnace as the thermo- 
stat used to do. The triac is 
turned on by a simple circuit 
consisting of a LED and an LDR 
(light dependant resistor), which 
I bought at Radio Shack. Of 
course, these two items must be 
enclosed in a lightproof con- 
tainer to be effective. 

To provide a means of keep- 
ing time in the computer, I used 
a one-minute pulse from a 
digital clock (which I had built 
some time ago) connected to in- 
put port 0. The clock itself is 
driven by a 160 kHz crystal, 
which is divided by a number of 
binary counters (7493s) con- 
nected in series to produce a 
one-minute pulse. The input port 
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00005 
00010 














;ttyopi 


ALLOWS USE OF A REGULAR 


TTY WITH THE 






00020 


;trs-8 


. THIS ALLOWS DIRECT USE 


OF LLIST AND 






00030 


;lprint 


COMMANDS. IT RESIDES AT 


7F00(H) WHICH 






00040 


;is THE 


ADDRESS (3251 2D) THAT MUST BE ANSWERED 






00050 


;im response 


TO "MEMORY SIZE?". 


AFTER LOADING 






00060 


;a V" 


WILL LOAD THE DCB C4026H 


t 4027H) WITH 






00070 


;THE "START" 


ADDRESS AND WILL THEN JUMP TO 






00080 


; BASIC 












00090 










7F00 




00100 




ORG 


7F00H 




7F00 


D30B 


00110 




OUT 


(ID-A 


/•RESET UART 


7F02 


21 1 07F 


00120 




LD 


HL/ START 


iADDR OF TTYOP1 


7F0 5 


222640 


00130 




LD 


(4026H)«HL 


;iNTO DCB 


7F08 


212A40 


00140 




LD 


HL>402AH 


;CHAR COUNT ADDR 


7F0B 


3640 


00150 




LD 


(HD/64 


;LOAD # OF CHAR/LINE 


7F0D 


C319 1A 


00160 




JP 


1A19H 


;jp TO BASIC 


7F10 


79 


00170 


START 


LD 


A,C 


;CHAR TO BE O/P 


7F1 1 


FEOD 


00180 




CP 


13 


;ck IF CR 


7F13 


2004 


00190 




JR 


NZ/A1 


;jp IF NOT 


7F15 


CD2F7F 


00200 




CALL 


CRLF 


;CR+LF ROUTINE 


7F18 


C9 


00210 




RET 






7F19 


CD267F 


00220 


Al 


CALL 


OPCHAR 


;CHAR O/P ROUTINE 


7F1C 


DD7E05 


00230 




LD 


A> ( IX+5) 


;LD # OF CHAR LEFT 


7F1F 


FEOO 


00240 




CP 





;CK IF CRLF NEEDED 


7F21 


CO 


00250 




RET 


NZ 


;ret IF NOT 


7F22 


CD2F7F 


00260 




CALL 


CRLF 


;CR+LF ROUTINE 


7F25 


C9 


00270 




RET 






7F26 


CD3E7F 


00280 


OPCHAR 


CALL 


CKTBMT 


;CK IF TBMT 


7F29 


D309 


290 




OUT 


(09) /A 


;o/p CHAR 


7F2B 


DD3505 


00300 




DEC 


(IX+5) 


;DEC CHAR COUNTER 


7F2E 


C9 


00310 




RET 






7F2F 


3E0D 


00320 


CRLF 


LD 


A , 13 


;load cr 


7F31 


CD267F 


00330 




CALL 


OPCHAR 


;o/p CHAR 


7F34 


3E0A 


00340 




LD 


A, 10 


;load lf 


7F36 


CD267F 


00350 




CALL 


OPCHAR 


;o/p LF 


7F39 


DD360540 


00360 




LD 


(IX+5).. 64 


; RELOAD CHAR COUNTER 


7F3D 


C9 


00370 




RET 






7F3E 


F5 


00380 


CKTBMT 


PUSH 


AF 


;save CHAR in A 


7F3F 


DB09 


00390 




IN 


A, (09) 


;i/P UART FLAGS 


7F41 


E6 1 


00400 




AND 


1 


; STRIP OFF TBMT 


7F43 


FE0 1 


00410 




CP 


1 


;CK IF MT 


7F45 


20F8 


00420 




JR 


NZ..CKTBMT+1 


;jp IF NOT 


7F4 7 


Fl 


00430 




POP 


AF 


/"RESTORE A REG 


7F48 


C9 


00440 




RET 






7F00 




00450 




END 


7F00H 




0000 C 


TOTAL ERRORS 










CKTBMT 7F3E 












OPCHAR 7F26 












CRLF 


7F2F 












Al 


7F19 












START 


7F! 




















Program A. 





is continously monitored for a 
change in state. Other methods 
could be used, e.g., a FOR-NEXT 
loop or a 555 timer circuit if you 
are not too concerned about ac- 
curacy. 

Model Railway Speed Control 

The speed control shown in 
Fig. 6 is a simple digital to ana- 
log converter circuit. With bit 3 
low, the output of the converter 
circuit is low, hence Q1 and Q2 
are turned off. With bit 3 high, a 
voltage is presented to the base 
of Q1, turning it and Q2 on. The 
exact voltage is determined by 
the binary value of bits 0, 1 and 
2. The output voltage appearing 
at the emitter of Q2 is incre- 



mented in eight steps by decre- 
menting the binary value of the 
four inputs to the 7406 (bits 0-3). 

Perhaps the easiest way to 
explain this is by saying that 
with a value of 8, Q1 and Q2 are 
off and with a value of 0, they are 
full on. Thus, the train is stopped 
with a value of 8 and runs at 
its fastest speed with a value of 
presented to the converter cir- 
cuit from the output port. For 
values between and 7, the train 
runs at a correspondingly 
slower speed. The actual vol- 
tage is from about 6 V, which is 
the lowest voltage that most 
HO-scale trains will run at, to 
about 11.5 V (assuming a 12 V 
supply). 



Software 

If you decide to build the TTY 
interface board, the following 
programs should greatly en- 
hance the capabilities of your 
computer. 

Programs A and B allow the 
use of the resident TRS-80 LLIST 
and LPRINT commands with a 
model 33 (or similar) TTY and the 
TTY interface board previously 
described. 

The TRS-80 is designed to pro- 
duce hard copy on a line printer 
through a memory mapped I/O 
port at address I43I2 (37E8H). 
The software routines neces- 
sary to permit this function are 
continued within the BASIC 
ROM. 



I first thought that I would be 
able to use these routines by 
decoding address I43I2 and wir- 
ing the UART circuit to it. 
However, I found that the ROM 
routines do not issue a line feed 
command, at the end of a line of 
print only a carriage return com- 
mand is issued. Obviously the 
Radio Shack line printer auto- 
matically line feeds whenever it 
receives a carriage return. A 33 
TTY does not! 

With the help of the RSM 
monitor I eventually found the 
answer. 

On power-up initialization a 
number of addresses in RAM 
are loaded with information 
used by the BASIC interpreter. 
Two of these addresses I6422 
and I6423 (4026H & 4027H) are 
loaded with the entry point of 
the line printer output rou- 
tine— I42I (0580H). By providing 
my own TTY handling routine 
and directing the BASIC inter- 
preter to it by changing the con- 
tents of I6422 and I6423, the 
TRS-80 can output to TTY rather 
than to the line printer. 

Programs A and B do just 
that. Program A is the actual 
assembly language program 
which I produced using the Ra- 
dio Shack Editor Assembler. It 
generates a line feed whenever 
a carriage return is performed. It 
also generates a CR and LF 
when 64 characters are printed 
on any line, thus the hard copy 
looks exactly the same as dis- 
played on the monitor. 

If you have the Editor As- 
sembler program, I recommend 
producing program A and mak- 
ing a tape copy of it. Simply load 
it using the system command 
and enter a "/". This loads the 
pointer addresses I6422 & I6423 
and returns to BASIC. 

For those who do not have the 
Editor Assembler, program B is 
provided. This is a BASIC lan- 
guage program which POKEs 
the machine (or assembly) lan- 
guage program into high memo- 
ry. Once POKEd, the BASIC pro- 
gram can be deleted and the 
TTY handler program will remain 
in high memory until power is 
removed. 

Two versions are shown: one 
for 4K and one for 16K. Remem- 
ber that whatever method you 
use, the memory size must be 
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MANAGEMENT SYSTEMS SOFTWARE 

ANNOUNCES 
TWO NEW BUSINESS PROGRAMS IOR THE SMALL BUSINESSMAN 

BY 

|EROME S. OSTERYOUNC, PH.D. 

RENOWNED BUSINESS EDUCATOR AND AUTHOR OF 5 BUSINESS TEXTS 

•PROFORMA CASH-FLOW STATEMENT" 'LEASE- PURCHASE DECISION 

FORECASTS CASH NEEDS AND LIQUIDITY EVALUATES LEASE VS PURCHASE DECISION 

FOR UP TO 12 PERIODS INCORPORATES LATEST TAX IMPLICATIONS 

EXTENSIVE DOCUMENTATION WITH EACH PROGRAM 

CASSETTE OR DISK 

WRITE FOR BROCHURE 



MANAGEMENT SYSTEMS SOFTWARE INC. 

5200 BRITTANY DRIVE. #1006 ST. PETERSBURG FL 33715 
(813)864-4347 



^87 



ATTENTKW TRS-80 
PROGRAMMERS 



Houston Micro Computet Technologies. Inc.. Is now 
soliciting speciality business applications pockoges for 
the TRS-80 Mod I and Mod II. Each month HMCT mails 
more thon 2300 newsletters to independent Radio 
Shock Dealers and select Computer Deolers. All pro- 
grams we market will be offered to these dealers os o 
polnt-of-sole pockoges. 
Crlterioi 



'Must be disk based 

'Must be NEVDOS (Apparat) Compatible 
'Must be copyrighted by individual or company 
submitting program 
'Must sign a non-piogerlsm release 
'Must hove complete documentation 

NO GENERAL 
FINANCIAL PACKAGES, PLEASE! 

Roy Okies ore 15-30% of net collected proceeds based 
on quality and market potential. 

For further information please call (713) 
661-2005 and ask for Gene Atteberry or 
Steve Tune or write: 

"TRS-80 is a registered trademark of TANDY CORP." 

HOUSTON MICRO-COMPUTER 
TECHNOLOGIES, INC. 

5313 BISSONNET 
BELLAIRE. TEXAS 77401 
(713)661-2005 ^13 




Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH? 

HEEIVIsoft proudly announces a more effi- 
cient way. using your own TRS-8(T . to learn the 
fundamentals of assembly language programming 
•at YOUR pace and at YOUR convenience. 
Our unique package. INTRODUCTION TO TRS-80' 
ASSEMBLY PROGRAMMING ", will provide you with 
the following: 

• Ten 45-minute lessons on audio cassettes. 

• A driver program to make your TRS-SO"" video 
monitor serve as a blackboard for the instructor. 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• A textbook on TRS-80-' Assembly Language 
Programming 

• Step- by-step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer. 

• How to access and use powerful routines in your 
Level II ROM. 

This course was developed and recorded by 
Joseph E. Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio. The minimum 
system required is a Level II. 16K RAM. 

REM ASSEM-1 only $69.95 

REMsoft, Inc. 

571 E. 185 st. 
Euclid, Ohio 44119 

(216)531-1338 

Include $1.50 lor shipping and handling ^ 

Ohio residents add 5'/!% sales tax 

TRS-80" is a trademark ol ihe Tandy Corp 
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A TRS-80 WORD PROCESSING 
SYSTEM FOR LESS THAN $600 

(It vou own IBM Selertrit or equivalent.) 

Turn your typewriter and TRS-80 into 
a new word processing system with a 
new device, the "KGS-80". 

• Plug in compatible with 1 RS-80 

• No mechanical modification to the type- 
writer. 

• Can be installed in S seconds 

• Software, a versatile Simple Letterwriter, in- 
cluded. 



179 Riveredge Rd. Tenafly NJ 07670 (201) 569-8769 "W 

DEALER INQUIRIES INVITED 



For Your 



TRS- 
80 

DUAL D1SK-32K 
BUSINESS SYSTEM 



QUALITY 

DTI 
PAYROLL 

No. 410 

DATA TRAIN'S many years 
of small business computer 
experience in accounting pro- 
gram products brings to your 
business all of the quality fea- 
tures, functions, screen dis- 
plays, standard reports, user 
designed reports and operator 
reference manuals; allowing 
you to efficiently manage the 
payroll of your company. 

• 50 employees per mini-disk. 

• Runs in all states. 

• You maintain the P/R pro- 
duct without programing. 

• Flexible, easy to use. 

• No maintenence fees. 



$235. 

Product Info & 
License/Order 
Form. 




PHONE 

(503) 476-1467 

840 N.W. 6th STREET, SUITE 3 
GRANTS PASS; OREGON 97526 

Available Soon- 

• General Ledger Accounting 

• Accounts Payable 

• Accounts Receivable 

• Fixed Asset Accounting 

^Trademark Radio Shack, Div Tandy Coip. 
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10 REM THIS IS THE 4K VERSION OF A BASIC PROGRAM FOR LOADING 

20 REM A MACHINE LANGUAGE PROGRAM INTO HIGH MEMORY TO ALLOW 

30 REM USE OF A TTY WITH LLIST AND LPRINT COMMANDS. 

40 REM ONCE LOADED* THE TTY HANDLER WILL REMAIN IN MEMORY 

50 REM UNTIL POWER IS REMOVED* AND THIS PROGRAM MAY BE ERASED 

60 REM MEMORY SIZE MUST BE SET AT 20224 PRIOR TO RUNNING THIS 

70 REM PROGRAM. OUTPUT TO THE TTY IS THROUGH PORT 9 

90 CLS 

1 FORX=20 224TO20296 

110 READY :POKEX*Y 

120 NEXT 

130 P0KE16526* 0:POKE16527* 79 

135 PRINT"TTY HANDLER LOADED" 

140 X-HSRC0) 

150 END 

100 DATA21 1* 1 1*33* 16* 79*34*38*64*33*42*64*54*64* 195*25*26* 121 

1010 DATA2 54* 1 3* 32* 4* 20 5* 47* 79* 20 1* 20 5* 38* 79* 22 1 * 126*5*254* 

1020 DATA 192* 20 5* 47* 79* 20 1*20 5* 62* 79* 2 1 1 *9* 221 * 53* 5* 20 1 * 62* 1 3 

1030 DATA20 5*38*79*62* 1 0*2 5*38* 79*221* 54* 5*64*201*245*219*9 

104 DATA23 0* 1*254* 1*32*248*241*201 

Program B. 



Bit 


Meaning 





Always (TBMT) 


1 = 


DAV (data available) 


2 = 


OV (overrun error) 


3 = 


FE (framing error) 


4 = 


PE (parity error) 




Table 1. 



lines 1150-1195 can be replaced 
by: 

1150 A$ = "TTY ERROR, FAULT CODE ":S$ 

= STR$(S): A$ = AS + SS 
1160 PRINTA$:GOSUB1300 

In this case, you must break 
down the decimal fault code 
given into binary and Table 1 
used to determine the error. 



set to 20224 for a 4K computer 
or 32512 for a 16K computer. If 
you use program B take care 
when entering the DATA state- 
ments. One wrong entry will 
probably cause your computer 
to get lost which will require a 
Power-Off reset to get it back, 
which will erase your program 
entirely. 

Program C. Program C is a 
TTY test and demonstration pro- 
gram. It initially requests the op- 
erator to input the number of 
"fox" messages required and 
then goes on to output the 
number of times requested the 



standard TTY test message: 
"The quick brown fox jumps 
over the lazy dog. 0123456789". 

The operator is then prompt- 
ed to type a message. Note that 
the message is terminated with 
a semicolon (;). The typed letters 
are displayed on the monitor 
screen and are also typed back 
on the TTY providing that no er- 
ror flags are set. 

Thus, if you have a suspect 
TTY, the location of the problem 
can be determined (i.e., key- 
board or printing unit) by using 
this program. For example; if the 
"fox" message types OK and 



1000 CLEAR500 

ioio input"* or fox messages";k 

1020 O'JTIl»0iGOSUB1330 

1023 AS--TTY TEST PROGRAM" I GOSUB I 300 

1026 A»-"THE QUICK BROW FOX JUMPS OVER THE LAZY DO G. I 23456789' 



1030 
1035 
1040 
I 050 
1070 
1080 
1090 

I 100 

II 10 
1120 
I 130 
1131 
1135 
1137 
1150 
1 160 
I 170 
I 171 
I 180 
1182 
1190 
1192 
1195 
1197 
1200 
1210 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 



FORZ-ITOK 

GOSUBI300 

NEXT 

A*«"PLEASE TYPE A MESSAGE" ■ GOSUB130 

CLS 

S«INP<9)lS-SAND30lIFS"OTHENI09 

IFS>2THENl 150 

A'INP( 10>IOUTIO,OHFA-59THEN1 130IREM I TERMINATES INPUT 

XS«CHRS(A>»AI-AS*XSlPRINTt256/ASlGOTOl09 

GOSUB1330 

GO SUB I 300 

AS«"TTY INPUT LOOKS OK-PLEASE TYPE AGAIN" I GOSUB 1 300 

GOTOI070 

SS-5iSS"SSAND16lIFSS«0THENIlB0 

SS"S»SS»SSAND8tIFSS«OTHEN119 

SS«SiSS-SSAND4lIFSS«»0THENI195 

GOT01197 

AS«"PARITY ERROR" I PRINTAJ: GOSUB 130 

GO TO I 160 

AS" "FRAMING ERROR"|PRINTAS:GOSUB130 

GO TO I 170 

AS« "OVERRUN ERROR" I PRINTAI I GOSUB I 30 

A$""TYPE AGAIN'l PRINTASl GOSUBI 300 

Tl RZ-ITOIOOtNEXT 

OUTll#0iGOTO10B0 

FORX»1TOLIN<AS) 

CS'MIDKAS.X* 1 ) iC-ASCCCS) : GOSUB] 360 

NEXT 

C-13tGOSUBI360 

C»l 0iGOSUBI360 

RETURN 

S"INP(9)tS»SANDlllFS»0THEN1360 

0UT9.C I RETURN 



Program C. 



the characters displayed on the 
monitor are incorrect, then 
obviously the trouble is in the 
keyboard or transmitter portion 
of the TTY. Of course, the UART 
wiring is also checked by this 
test. 

Line 1090 is a line in a contin- 
uous loop monitoring the status 
word flags for a change. If a 
change in state on any flag ex- 
cept the TBMT flag is detected, 
line 1100 will determine whether 
an error is present with the 
received character. If an error 
exists, then a transfer will be 
made to line 1 150, where the par- 
ticular error is determined. If no 
error has been detected by the 
UART, control will drop through 
to line 1110, where the received 
character is processed. 

To save typing and memory, 



Conclusion 

In addition to the uses already 
described, the interface unit has 
been used to turn on and off out- 
side lighting at Christmastime, 
as a telephone dialer and is pre- 
sently being used to control 
basement lighting in addition to 
the climate control system pre- 
viously described. 

Providing care and patience 
are used, even a novice should 
be able to build this unit, as no 
special tools are required. Once 
this unit is built, I am sure that 
you will discover that your 
TRS-80 is no longer just an "ex- 
pensive toy," but rather a useful 
addition to your household. 

Should you decide to build 
the unit and if you have any com- 
ments or suggestions, I would 
be pleased to hear them. ■ 




Fig. 6. Model railway speed control. 
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UTILITY 



How to share your video 
information with your line printer. 



LPRINT Routines 



Craig Werner 

Abington Computing Group 
1824 Watson Rd. 
Abington PA 19001 



Working with the TRS-80 
microcomputer and its 
companion line printer presents 
many inherent problems be- 
cause, unlike many terminals, 
the printer is not directly con- 
nected to the keyboard, so that 
data on the video screen will not 
be typed out onto the printer, 
and vice versa. There is also the 
problem of the TRS-80 ex- 
ecuting an LPRINT statement 
when either the printer or the ex- 
pansion interface, or both, are 
turned off, or when no printer ex- 
ists. 

In the first two cases, the 
computer will "lock up," but 
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Example 1. 


Repetition of statements. 













only until the respective hard- 
ware is turned on. The outcome 
of the last case is dependent on 
whether the computer is hooked 
up to an expansion interface. If 
it is not, then the lock-up can be 
broken by simply pressing the 
Reset button in back of the key- 
board. If an interface is connect- 
ed, then the Reset button will 
cause a power-up, and the resi- 
dent program will be lost. 
(However, even though it is lost 



it is still retained in memory and 
can be accessed by using a re- 
covery procedure not to be dis- 
cussed here.) 

Robbing Peter to Pay Paul 

A direct link between the key- 
board and the printer is possi- 
ble, but only at the expense of 
the video display. It is accom- 
plished by POKEing the con- 
tents of the printer driver ad- 
dresses into the video driver ad- 



10 INP 
20 IF 

110 H# 
130 H* 
150 H* 
170 A* 
190 RE 

7000 C 
7010 P 

7020 I 
701:;:0 L 
71340 R 



HI 



UT'T'U VOL! HAVE H PRINTER-: VES OR NO 

A*="NO" THEN Q-i. 

= "THE SALES THX ON I HE ITEM IS":S=T QOSUB7000 

="THE TOTAL COST IS" S=C : GOSUB70O0 

^"THE AMOUNT FINANCED IS" S=F : GOSUB70O0 

="THE MONTHL V PRVMENT I S" S=P : GOSUB7000 

M THERE HRE 9 MURE STATEMENTS 

*=**####. ## 

R I NT A* j USING C*i S 

F Q=l THEN RETURN 

PRINT A*.:USINLi C*;S 

ETURN 

Example 2. Use of a printer subroutine. 



dresses. These numbers, 141 in 
16422 and 5 in 16423, when 
POKEd into 16414 and 16415, re- 
spectively (i.e., POKE 16414,141: 
POKE 16415,5), will cause all 
output to go to the line printer. 
Nothing will appear on the video 
screen. All functions, including 
the AUTO and EDIT functions, 
will continue to work as before; 
however, all keyboard input will 
be input blindly, since the input 
line will not be printed on the 
line printer until ENTER is 
pressed. 

This technique can also be 
used backwards by POKEing 
the video commands into the 
printer addresses (POKE 
16422,88 : POKE 16423,4). This 
will cause all LPRINTs to be 
printed on the video and ignored 
by the printer, becoming for all 
intents and purposes, PRINTS. 
It is useful in testing a program 
containing LPRINTs for text er- 
rors and formatting without us- 
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ing paper or even the printer. 

Duplication and Some 
Alternatives 

In most cases, however, it is 
desired to have output to both 
the video and the line printer 
concurrently. The simplest way 
to do this is to type the line 
twice— once with PRINT, the 
other with LPRINT, as in Exam- 
ple 1. This is the most obvious 
approach, but it is a terrible 
waste of time and memory, 
especially with conditional 
LPRINTs and many statements, 
as in the example. With a four 
line subroutine, all duplication 
can be avoided, as in Example 2. 
In this particular instance, the 
modification saved 700 bytes. 

Another alternative to dupli- 
cation is direct conversion of all 
PRINTS to LPRINTs. The com- 
mand code for PRINT is 178, 
while the LPRINT code is 1 75. To 
change all PRINTS to LPRINTs, 
use the command in Example 3. 
While this command is de- 
signed to be used in the direct 
mode, it is easily adaptable to 
the programming mode. To re- 
verse the process and go from 
LPRINT to PRINT use the com- 
mand in Example 4. 

These two commands are 
complex for a reason. They will 
change only PRINT and LPRINT 
statements and will leave all 
programs pointers, line 
numbers, GOTOs, GOSUBs and 
variables untouched, and will 
automatically end at the end of 
the resident program if the pro- 
gram is less than 16K. 

A More Viable Solution 

These routines are useful, but 
in practice the most useful 
method of outputting to the line- 



printer is by PEEKing the video 
display memory addresses and 
outputting the information to 
the line printer. It is useful in 
that it retains the format of the 
screen and will support PRINT 
@s and near graphics, which 
are normally ignored. 

For best results, the subrou- 
tine should be called after the 
screen is filled and all inputs are 
entered. It is also necessary to 
CLEAR 150 bytes of memory for 
string manipulation. 

The Screen Printer subroutine 
is found in Example 5. It is 
ideal for a sample run of a pro- 
gram, and could be called every 
time the screen is filled. It would 
type out every character in its 
place, including graphics. 

Lines 20000 and 201 15 make it 
possible to control access to the 
subroutine. Because of those 
lines, if the line printer is either 
initially off or is turned off dur- 
ing execution, the program will 
RETURN and continue execu- 
tion and will not lock-up. (The 
address 14312, the line printer 
address, will store a 255 when 
the line printer's power is off, a 
223 when its power is on but its 
motor switch is off, a 191 when 
its I/O buffer is partially full and 
a 63 when it is ready to receive 
instructions.) 

The routine need not be typed 
in with the program, nor need it 
remain an intrinsic part of the 
program, although it could. 
Rather, it can be written with 
high line numbers (20000 or 
30000), stored on a separate 
tape and Appended to the end of 
the resident program. 

To Append: Print the PEEK of 
16633 for the LSB of the End-of- 
Program pointer and the PEEK 
of 16634 for the MSB, then sub- 



FOH N = 1/128 TO 32/68 IF PEEK(N) - C AND PFEKiN I 1 1 = AND PEEKlN ♦ 2) = 
THEN END ELSE IF PEEKlN) = THEN N - N ♦ 4 NEXT : ELSE IF PEEKING 1/8 THEN 
POKE N. 1/5 NEXT • ELSE NEXT 



Example 3. 



20000 IF PEEK'. 14312 ><>63 THEN RETURN 

20010 LPRINT STRING* ',64, " + " ) 

20020 FOR N=1S360TO16383 STEP 64 

20030 Q=PEEKCN> 

20040 IF Q.:>=127 AND CK-191 THEN Q=42 

20050 fl*-CHR*<CD 

20060 FOR Q=1T063 

^0070 Z=Pt E K <'. N-f Q > 

20080 IF Z>=127 FIND Z<=191 THEN Z=42 

20090 B*=CHR* ■; Z > 

28100 P.*=R*+B* 

20110 NEXT Q 

20113 IF PEEKC14312 ><>S3THEN RETURN 

20120 LPRINT" "LPRINT H* 

20130 NEXT N 

20140 LPRINT STRING*-:: 64, "+"> 

20150 FOR N-1T03: LPRINT" "NEXT 

20160 RETURN 

Example 5. Screen Printer subroutine. 



21000 


Nl =PFEK <'■ 1641 7 '■ *2S6-' 64+POS ••' 0> ">■* PEEK < 16416 > 


21010 


N2«Nl+63 


21O20 


R«PEEK<N1) : IF R>=127 AND A<=191 1 HEN R»42 


2103O 


h*--i:hr*-.h> 


2d 040 


Nl«Nl+l:FOR H»N1 TO N2 


21050 


fcs=PEEH.CR> : IF h.=127 AND BOISI THEN B«42 


21 060 


B*»CHR* ■:& > H*-H*+P* 


21O70 


NEXT A 


2 i hhm 


L PR IN 1 A* 


21090 


RETURN 




Example 6. Single line Screen Printer subroutine. 



FOR N^ 1/128 TO 32/68 IF PEEKlN) -0 AND PEEKlN 1 1 1 = AND PEEKlN 


• 2)^0 


THEN END ELSE IF PEEKiNi -0 THEN N = N ' 4 NEXT ELSE IF PEEKlN) -- < /» 


THEN 


POKE N 178 NEXT ELSE NEXT 




Example 4. 





tract two from the LSB (unless 
the LSB is or 1, in which case 
subtract one from the MSB and 
add 254 to the LSB). Take the 
new LSB and MSB and POKE 
16548, LSB : POKE 16549, MSB. 
Then load the subroutine using 
CLOAD, and POKE 16548,233 
(186 if a Disk is attached) : POKE 
16549,66 (104 with a disk sys- 
tem), then type in CLEARrRE- 
STORE, and the program is 
ready to run. 

After Appending, add all nec- 
essary GOSUBs. One additional 
tip is helpful — choose uncom- 
mon variables in the subroutine 
(AZ,ZQ,Q9, etc) so that they can 
be Appended indiscriminately 
without fear of conflicting with 
program variables. 

A similar routine for output- 
ting a certain N number of lines 
can also be used (see Example 
6). As is, the routine will LPRINT 
only the entire previous line. To 
LPRINT more than one line, 
simply add 64 for each addi- 
tional line to be LPRINTed to the 
second term of line 21000 
(64 + POS(0)) and to line 21010 
N2 = N1+63. For example, if 
three lines were to be LPRINTed, 
the above lines would read 
(192 + POS(0)) and N2 = 



N1 +191, respectively. 

To make it completely gen- 
eral, with the value of N to be IN- 
PUT, the above lines could be 
changed to (64 *N + POS(0)) and 
N2 = N1 +64*N -1, respective- 
ly. It works because the memory 
locations 16416 and 16417 
return the current cursor posi- 
tion, and the POS(0) term returns 
the cursor, as far as the program 
is concerned, to the beginning 
of the line, so it need not be 
reset. 

This remains an incomplete 
list of printer applications; 
however, we have found that 
these five routines form a useful 
and, in fact, almost indis- 
pensable advantage when work- 
ing with the line printer. These 
routines could be extended into 
a text editor in BASIC, using the 
IN KEY function to type a text on- 
to the screen and then using 
either a shifted key or the 
ENTER key (which returns an 
ASCII 10) to branch to the 
Screen printer subroutine and 
output the text to the printer. 
Further applications are limited 
only by the imagination of the 
programmer. (Note: I would like 
to thank Jeff Eisen, Gene Fred 
Wieland and Robin Salmansohn 
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for their various contributions 
along the way.) 

Addendum 

Since I did my original re- 
search on this topic, a few devel- 
opments have changed certain 
data found in this article. These 
changes fall into two cate- 
gories. 



1) When I researched the arti- 
cle TRSDOS 2.1 was the only 
Disk Operating System avail- 
able. Since then Radio Shack 
has introduced TRSDOS 2.2 and 
TRSDOS 2.3 and they have been 
widely distributed. Because of 
memory allocation, the begin- 
ning of a BASIC program is not 
always found at 17129 as in Lev- 
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PUSH HL 




DOE1 
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pop ix 
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IP STF*T 




FEB2 


00290 CHECK 
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•CHECK FOR PRINT 


. "1-4 


00300 


JR Z. SWITCH 




0O23 


00310 


INC IX 




131)7 


00320 


JR START 




DD36eeAi 


00330 SWITCH 


LD CIX>.173 


CHANGE TO LPRINT 


002-2 


00340 


INC IX 




18CF 


00330 


JR START 






00360 


END 








Example 7. 



el II BASIC. This affects AP- 
PENDing instructions and the 
PRINT to LPRINT conversion 
routine. 

The values in question are 
still stored in addresses 16633 
and 16634 and should be 
PEEKed for each individual ver- 
sion. Values for TRSDOS 2.1 are 
found in this article, and the 
value for TRSDOS 2.2 and 2.3 are 
36 and 106 respectively. It is a 
purely academic point, however, 
since TRSDOS 2.2 and 2.3 each 
have APPENDing instructions 
built in. Still, manual appending 
is handy to have when a full disk 
prevents the user from SAVEing 
a disk program in the TXT mode. 

The change in the beginning 
of the program also affects the 
PRINT to LPRINT conversion. To 
use the BASIC conversion pro- 
gram contained in the article, it 
is necessary to change the be- 
ginning address of the FOR- 
NEXT loop to 26809 for use with 
TRSDOS 2.1 and 27171 for use 
with TRSDOS 2.3. 

Another problem is the expan- 
sion of memory usually associ- 



ated with a disk system. BASIC 
is either too slow or incapable of 
changing all addresses in such 
a system. The following ma- 
chine language code is identical 
in function to Example 3 and 
accomplishes the same task 
about 50 times faster. It can be 
accessed via the system com- 
mand in Level II BASIC, and the 
CMD"I", "filespec" mode in BA- 
SIC. IN 2.1 it should be loaded in- 
to high memory before entering 
BASIC and then accessed as a 
USR routine. My designated file 
name for LPRINT to PRINT con- 
version is LPTPCV/CMD and for 
PRINT to LPRINT is PTLPCV/ 
CMD. 

2) Not all printers, particularly 
the newer models, enter the 
same data in the driver address 
at 14312 when the Print Inhibit 
Switch is turned off. It will not 
affect the Screen Printer Sub- 
routine in this article as 63 still 
designates ready to go and 255 
still designates that the power is 
off. but depending upon the 
printer, certain signals in other 
states will change.! 



TRS-80 PROFESSIONAL ACCOUNT- 
ING AND BUSINESS SOFTWARE 



General ledger, accounts payable, 
accounts receivable, payroll- 



Used and supported by our 
accounting office and programers. 
This Turnkey System will put your 
TRS-80 in the professional business 
computer category! 



G/L: 200+ Accts, 1700* trans per 
month, auto verify while posting, 
randome files, cash journal, auto DR 
CR entry, complete audit trails, mini 
report generator, plus more. 

Payroll: Auto pay CALC, complete 
audit trails, auto tax W/H, after the fact 
posting, journals, check writing, W-2'5, 
941 '5, insurance reports, absentee 
reports, plus more A/R and A/P: 
statements, extensive invoice/CR 
Memo/DR memo files, integrates with 
G/L on three disk system, check 
writing, audit trails etc.. plus much 
more. 



PER PROGRAM $90.00/PACKAGE 
$299.00 (PLUS SHIPPING). 



To order or for more information call or 
write to Full Service Accounting and 
Processing P.O Box 2366 Springfield, 
VA 22152. Between 9:00 am and 5:00 
pm est. (703) 573-7301. Call or write 
now. VISA/Master Charge Accepted. 



TRS-80© 
TAPE DIGITIZER 



Used by the 
U.S. Coast 
Guard and 
U.S. Navy 



-ELIMINATES CASSETTE 
LOADING AND COPYING 
PROBLEMS EVEN 
-SYSTEM* TAPES! 

'MAKES TAPE PROGRAM 
LOADING PRACTICALLY IN 
DEPENDENT OF VOLUME 
CONTROL SFTTINQ! 

-MAKES PERFECT COPIES 
OF ANY TAPE DKJITALLY 
WITHOUT USING COM- 
PUTER. DIGITIZED TO EX 
ACT REPLICA OF TR-*0'i 
SIGNAL WHILE REMOVING 
HUM. NOISE AND OTHER 
MINOR DROPOUTS 

•AC POWERED NO BAT 
TERIES CASSETTE SWITCH 
ALLOWS MANUAL OR COM 
PUTER CONTROL OF CAS- 
SETTE RECORDER 

•FEED YOUR CASSETTE TO 
THE TAPE DIGITIZER AND 
FEED YOUR COMPUTER 
THE EXACT DIGITAL 
WAVEFORM THE TRS-W 
GAVE TO THE TAPE WHILE 
MAKING A COPY AT THE 
SAME TIME' 

•THE TAPE DKMTIZER IS 
COMPLETELY COMPATIBLE 
WITH LEVEL I ANO II 



^•124 



4/ SO AHILABLL WITHOUT 
C 4SM TTt RCMOTl 

os/off sum h 




24-hour phono 

(707)687-723/ 




mi 



TRS-80® 

DIRECT INTERFACE 

$795.00 

• Cleaned and Functionally 
Checked IBM I/O Terminal 

• ASC II, Parallel 

• Service and Parts Manuals 

• 3 to 4 weeks Delivery 

• Heavy Duty Packing $25.00 

• Shipping Collect 

• Cashier Check, Money Order 



MN 



McClam & Associates. Inc. 
5104 E. 65th Street 
Indianapolis, Indiana 46220 
(317)842-0526 
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Software for the 80's 



Enter the world of "80" programs from Instant Software. A world where 
you and your TRS-80 can rule duchies, play poker, learn speed reading, ex- 
plore caves, design antennas, launch rockets, or simply pay your bills. 



Final 
Frontier 



SPACE TREK II Protect the quadrant from 
the invading Kimgon warship*. The Enter- 
prise 19 equipped with phaeers, photon 
torpedoes, impulse power, and warp drive 
Us you alone and your TRS-80 Lm 
Level II 16K against the enemy Order No 
0OO3N 17.95 



SPACE TREK IN Let yourself go to the far 

ends of the solar system -and beyond 

This pacKage includes 

•SteMar Wars - Shoot down the Tie fighters 

and destroy the Death Star 

•Planetary Lander -Land your spacecraft 

and plant your Hag across Ihe solar system 

These one-ptayor games require a TRS40 

Level l «K Order No 0031R 17 tS. 



SPACE TREK IV Trade or wage war on a 

planetary scale This package includes: 

•Sleiler Wars -Engage and destroy Tie 

fighters >n your attack on the Death Star 

For one player 

• Population Simulation- A two p aye' 

game wnere you control the economy of 

two neighboring planets 

You decide, guns or butler, with your 

TRS 80 Level II 16* Order No. 00S4R S7 K 




RAMROM PATROL/TIE FrOMTERfKLINO 
ON CAPTURE Bock Roger* never had II so 
good Engage m extraterrestrial Mftefl 

•Ramrom Patrol -Destroy the Ramrom 
ships before they capture you 
•Tie Fighter -Destroy the enemy Tie 
fighters and become a heroot the rebellion 
• KHngon Capture -You must capture Ihe 
Klmgor ship intact It's you and your 
TRS-60 Levei H 16K baltimg across Ihe 
galaxy Order No. 0028R $7 15 



•ASIC AND INTERMEDIATE LUNAR 
LANDER Bring your lander in under manual 
control The basic version is for beginners. 
the intermediate version is more difficult, 
with a choice of landing areas and rugged 
terrain. For one player with a TRS-80 Level i 
4K Levei n i6K. Order No 0OO1P. 17.98 




Technical Data 



HAM PACKAGE I This versatile package lets you 
solve many of the problems commonly encoun- 
tered in electronics design. With your Level I 4K 
or Level II 16K TRS-80, you have a choice of: 
•Basic Electronics with Voltage Divider -Solve 
problems involving Ohm's Law, voltage dividers, 
and RC time constants. 

■ Dlpole and Yagl Antennas — Design antennas 
easily, without tedious calculations. 
This is the perfect package for any ham or techni- 
cian. Order No. 0007R S7.95. 



ELECTRONICS I This package will not only cal- 
culate the component values for you. but will 
also draw a schematic diagram. You'll need a 
TRS-80 Level I 4K. Level II 16K to use: 
•Tuned Circuits and Coil Winding - Design 
tuned circuits without resorting to cumbersome 
tables and calculations. 

•5S5 Timer Circuits — Quickly design astable or 
monostable timing circuits using this popular IC. 
•LM 381 Preamp Design -Design IC preamps 
with this low-noise integrated circuit. 
This package will reduce your designing time 
and let you build those circuits fast. Order No. 
0008R $7.95. 




Educational 
Games and 
Simulations 



AIR FLIGHT SIMULATION Turn your TRS-80 into 
an airplane. You can practice takeoffs and land- 
ings with the benefit of full instrumentation. This 
one-player simulation requires a TRS-80 Level I 
4K, Level II 16K. Order No. 001 7R $7.95. 

SANTA PARAVIA AND FIUMACCIO Become the 
ruler of a medieval city-state as you struggle to 
create a kingdom. Up to six players can compete 
to see who will become the King or Queen first. 
This program requires a TRS-80 Level I or II 16K. 
Order No. 0043R $7.95. 

OIL TYCOON Avoid oil spills, blowouts and dry 
wells as you battle to become the world's richest 
oil tycoon. Two players become the owners of 
competing oil companies as they search for oil 
and control their companies. Requires a TRS-80 
4K Level I or II. Order No. 0023 R S7.95. 

DOODLES AND DISPLAYS II Wait until your 

children get hold of this package: 

•Doodle Pad -Draw pictures and save them on 

cassette tapes. 

•Symmetries - An electric kaleidoscope that 

changes from black to white and back again. It's 

almost hypnotic! 

•Drawing — Like Doodle Pad, but for the serious 

artist. Over 40 user commands! 

•Random Pattern Display — The computer does 

the drawing, but those with itchy fingers can 

tamper. 

•Mathcurves - Bring those geometry lessons to 

life. Six different geometrical curves on the 

screen of your TRS-80. 

•Rugpattems- Yes, it does design rug patterns; 

and with a choice of user or computer control, it 

can do a whole lot more. 

For the Level II 16K TRS-80. Order No. 0042R 

$7.95. 

WHO-DUN-IT? Criminal elements have com- 
mitted five dastardly crimes. As the investigating 
detective, you must solve them. 

You can compete against either Detective 
Nybbles, a computerized sleuth, or up to four 
other human detectives. Requires a TRS-80 Level 
II 16K. 

• Deduction -Guess the order of four symbols 
out of six or seven different ones. To make things 
even more complicated, you can let the computer 
repeat symbols and have a range of 2401 possi 
bihties. You'll need a TRS-80 Level II 4K. Order 
No. 0047R $7.95. 
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GAMES 



CARDS This one-player package will let you play 
cards with your TRS-80— talk about a poker face! 
•Draw and Stud Poker— These two programs will 
keep your game sharp. 

•No-Trump Bridge - Play this popular game with 
your computer and develop your strategy. 
This package's name says it all. Requires a 
TRS-80 Level II 16K. Order No. 0063R $7.95. 



BEGINNER'S BACKOAMMON/KENO Why sit 
alone when you can play these fascinating 
games with your TRS-80? 
• Backgammon — Play against the computer. 
Your TRS-80 will give you a steady, challenging 
game that's sure to sharpen your skills. 
•Ken© — Enjoy this popular Las Vegas gambling 
game. Guess the right numbers and win big. 
You'll need a TRS-80 Level I or II. Order No. 0004R 
^$7.95. 



CAR RACE/RAT TRAP/ANTIAIRCRAFT Enjoy 

these challenging, fun-filled programs: 

•Car Race— You and a friend can race on a 

choice of two tracks. 

•Rat Trap — Trap the rat in his maze with your two 

cats. For one player. 

•Antiaircraft -Aim and shoot down the enemy 

airplane. Requires Level I 4K TRS-80. Order No. 

001 1R $7.95. 



DESTROY ALL SUBS/GUNBOATS/BOMBER This 
package of three programs is fun for the whole 
family. Included are: 

•Destroy Ail Subs — Hunt down enemy subs 
while avoiding mines and torpedoes. A one- 
player game. 

•Gunboats - Try to blow the enemy's ship out of 
the water. For one or two players. 
•Bomber — Carefully release your bomb to 
destroy the moving submarine. A one-player 
game. 

To enjoy these programs, you'll need a TRS-80 
Level I 4K. Order No. 0021 R $7.95. 



BOWLING Let your TRS-80 set up the pins and 
keep score. One player can pick up spares and 
get strikes. For the TRS-80 Level I 4K, Level II 
16K. Order No. 0033R $7.95. 



GOLF/CROSS-OUT Have fun with these exciting 

one-player games. Included are: 

•Golf — You won't need a mashie or putter— or a 

caddie, for that matter— to enjoy a challenging 

18 holes. 

•Cross-Out — Remove all but the center peg in 

this puzzle, and your neighbors will call you a 

genius. 

You'll need a TRS-80 Level I 4K. Level II 16K. 

Order No. 0009R $7.95. 



Utilities 




Education 



VIDEO SPEED-READING TRAINER You can in- 
crease your reading speed and comprehension 
with this package. It uses the principle of the 
tachistoscope. a device that teaches by display- 
ing images for a fraction of a second. This pro- 
gram can train you to recognize words and 
phrases quickly, so that your everyday reading 
becomes an uninterrupted process. To increase 
your throughput, you'll need a Level II 16K. Order 
No. 0100R $7.95. 

MUSIC MASTER lets you compose music, play 
your keyboard as if it were a piano, and experi- 
ment with programming to produce music suited 
to your taste. This package includes: 
•Micro Organ -The program will let you play 
flats and sharps to imitate the sounds of an 
organ, a harpsichord, or a piano. 
•Kaieidopy — Now you can have a computerized 
"player piano." Generate a symmetrical graphics 
pattern and then see it transformed into music. 
•Composer— Experiment with computer-gen- 
erated music. This program allows you to select 
the length of the piece, the scale it will be played 
in. and the tempo. 

•Keymania - This game will test not only your 
memory, but your musical ear. They may laugh 
when you sit down at the keyboard of your com- 
puter, but not after they hear what the Music 
Master package can do. All you will need is a 
TRS-80 Level II 4K. Order No. 0084R. $7.95. 



TYPING TEACHER This complete seven-part 
package takes you all the way from initial 
familiarization with the keys, through typing 
words and phrases, to complete mastery of the 
keyboard. Your computer can even become a bot- 
tomless page for typing practice. It requires a 
TRS-80 Level 1 4K or Level II 16K. Order No. 0099R 
$7.95. 

TEACHER 

What do you need to learn? Would you like to 
know all of the cranial nerves? Electronic color 
codes? Civil War battles? Signs of the zodiac? 
Whatever your subject matter, the Teacher pack- 
age can help you learn it. You simply input up to 
twenty questions and answers at one time. Next, 
review the material, and then take the test until 
you have your lesson down pat. The program 
gives you up to three hints per question and even 
offers graphic rewards for children, all at your 
discretion. All the information can be saved on 
cassette tape for reuse. 

This package also contains the Teacher Data 
Transfer program, which allows you to combine 
several tests on one tape. That means you can 
learn a number of lessons sequentially without 
changing tapes. 

Teacher is an effective instrument for anyone 
who needs to learn a lot of material in the short- 
est possible time. For decades leading educa- 
tors and computer scientists alike have been pro- 
moting the future role of computers in education. 
Now you and your family can reap the benefits of 
computer-assisted instruction in your own home. 
The program is furnished with a blank data cas- 
sette tape. You'll need a TRS-80 Level II 16K. 
Order No. 0065R $9.95. 

GRADE BOOK Teachers, now you can use the 
speed and accuracy of the TRS-80 to help you 




TRS-80 UTILITY I Ever wonder how some 
programmers give their programs that pro- 
fessional look? Instant Software has the 
answer with the TRS-80 Utility I package. In- 
cluded are: 

•RENUM — Now you can easily renumber 
any Level II program to make room for 
modification or to clean up the listing. 
•DUPLIK — This program will let you 
duplicate any BASIC, assembler, or ma- 
chine-language program, verify the data, 
and record the program on tape. You can 
even do Level I programs on a Level II ma- 
chine. For the TRS-80 Level II 16K. Order 
No. 0081 R $7.95. 



TRS-80 UTILITY II Let Instant Software 
change the drudgery of editing your pro- 
grams into a quick, easy job. Included in 
this package are: 

•CFETCH- Search through any Level II 
program tape and get the file names for all 
the programs. You can also merge BASIC 
programs with consecutive line numbers 
into one program. 

•CWRITE - Combine subroutines that work 
in different memory locations into one pro- 
gram. This works with BASIC or machine- 
language programs and gives you a general 
checksum. 

This package is just the thing for your 
TRS-80 Level II 16K. Order No. 0076R $7.95. 



calculate student grades. Just type in the grades 
for tests, quizzes, homework, classwork, or 
special projects. The Grade Book program will 
calculate and display individual grade averages. 

The program permits you to weigh student per- 
formance scores and convert raw score totals to 
a 100-points-equals-perfect-score basis. 

You can also average students' quarterly 
grades with grades for the previous quarter, 
semester, and final exam to obtain an average 
grade for the year. 

When grading time comes around, don't chain 
yourself to a calculator. Go modern with the 
Grade Book package. It requires a TRS-80 Level I 
4K or Level II 16K. Order No. 0050R $7.95. 



WORDWATCH This package combines four dif- 
ferent programs to entertain and educate. 
•Word Race— Here's a game for two would-be 
Grand Prix drivers who can define words ac- 
curately. The more you get right, the closer you 
come to the checkered flag. 
•Hide N Spell — First you must find the miss- 
pelled word, then correct it. The faster you find it, 
the higher your score will be. 
•Spelling Bee— This program is unique in that 
the student types back a spelling word in re- 
sponse to hearing it from your tape recorder. If 
the response is incorrect, hints and clues are 
given. Review up to 40 words in each session. 
•Spelling Tutor— Load a spelling lesson, then sit 
back and observe as the computer does the rest. 
For variation the words are presented in different 
fashions, including reverse-order, with letters 
missing, and with altered letters. 

There you have it: Wordplay x four = Word- 
watch. 

Requires a TRS-80 Level II 16K. Order No. 0111 R 
$7.95. 
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Business 



FINANCIAL ASSISTANT Compute the figures for 

a wide variety of business needs. Included are: 

•Depreciation — This program lets you figure 

depreciation on equipment in five different ways. 

•Loan Amortization Schedule -Merely enter a 

few essential factors, and your TRS-80 will 

display a complete breakdown of all costs and 

schedules of payment for any loan. 

• Financier — This program performs thirteen 

common financial calculations. Easily handles 

calculations on investments, depreciation, and 

loans. 

•1% Forecasting -Use this simple program to 

forecast sales, expenses, or any other historical 

data series. 

All you need is a TRS-80 Level II 16K. Order No. 

0072R $7.95. 



BOWLING LEAGUE STATISTICS SYSTEM This 
package is the answer to the prayers of harried 
bowling league scorekeepers. The Bowling 
League Statistics System will keep a computer- 
ized list of league data, team data, and data for 
each bowler. It is extremely flexible and has a 
total of 16 different options to let you modify the 
program to suit your league's rules. The program 
is very easy to use and has extensive "built-in" 
aids to help you along. Requires TRS-80 Level II 
16K. Order No. 0056R $24.95. 



BUSINESS PACKAGE I Keep the books for a 
small business with your TRS-80 Level I 4K. The 
six programs included are: 
•General Information -The instructions for us- 
ing the package. 




Home 
and Personal 
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HOUSEHOLD ACCOUNTANT Let your 
TRS-80 help you out with many of your daily 
household calculations. Save time and 
money with these fine programs: 
•Budget and Expense Analysis — You can 
change budgeting into a more pleasant job 
with this program. With nine sections for in- 
come and expenses and the option for one- 
and three-month review or year totals, you 
can see where your money is going. 
•Life Insurance Cost Comparison - Com- 
pare the costs of various life insurance 
policies. Find out the difference in price 
between term and whole life. This program 
can store and display up to six different 
results. 

All you need is TRS-80 Level II 16K. Order 
No. 0069R $7.95. 

PERSONAL FINANCE I Let your TRS-80 
handle all the tedious details the next time 



you figure your finances: 
•Personal Finance I -With this program 
you can control your incoming and outgo- 
ing expenses. 

•Checkbook -Your TRS-80 can balance 
your checkbook and keep a detailed list of 
expenses for tax time. 
This handy financial control for the home 
requires only a TRS-80 Level 1 4K. Order No. 
0027R $7.95. 

STATUS OF HOMES/AUTO EXPENSES Two 

long-awaited programs that have got to 
save you money at work or in the home: 
•Status of Homes -This program will allow 
you to keep track of all the expenses in- 
volved in building one house or an entire 
subdivision. 

•Auto Expenses -Find out exactly what it 
costs you to drive your car or truck. 
These programs require a TRS-80 Level 1 4K. 
Order No. 001 2R $7.95. 



•Fixed Asset Control -This will give you a list of 
your fixed assets and term depreciation. 
•Detail Input— This program lets you create and 
record your general ledger on tape for fast ac- 
cess. 

•Month and Year to Date Merge -This program 
will take your monthly ledger data and give you a 
year to date ledger. 

•Profit and Loss -With this program you can 
quickly get trial balance and profit-and-loss 
statements. 

•Year-End Balance -This program will combine 
all your data from the profit-and-loss statements 
into a year-end balance sheet. 
With this package, you can make your TRS-80 a 
working partner. Order No. 001 3R $29.95. 



BUSINESS PACKAGE III This package can 
change your TRS-80 into a full working partner 
for any businessman: 

•Inventory- Maintain a computer-based inven- 
tory for a constant inventory system. 



•Commissions and Percentages - Let your com- 
puter figure out markup and discount calcula- 
tions, sales tax and more. This is a perfect time- 
saving package for any small business. 
For the TRS-80 Level I 4K. Order No. 0061 R $7.95. 



BUSINESS PACKAGE IV This package can help 
any businessman get the right information for 
those critical decisions. 

•Business Cycle Analysis — This program can 
plot the expansion and contraction cycles of any 
aspect of your business. You'll see in black and 
white just what's happening. 
•Financial Analysis -Now you can get the 
figures for any type of annuity, sinking fund, or 
mortgage, and compute the yield and value for 
bonds. 

The package includes a blank data tape and re- 
quires a TRS-80 Level I 4K or Level II 16K. Order 
No. 001 9R $9.95. 

'A trademark of Tandy Corporation 
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Order Your 

Instant Software 

today! 
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eu r 










Cluck 


~ Money Order 


c 3 


z 


m | 


Signature 








(illv 



Zip 



Owanlity 


Ord*r No. 


P'ogrim n»m« 


Unit Cox 


Tom coti 


































































Sluppng 




Si 00 


MattU 


i: 




'oiii wW 





H HG1 M. OOrnrv tlflg "' *«..*...« to USA Only 

Peterborough NM 03458 USA Opt 70C0 



i* Reader Service— see page 147 



80 Microcomputing, March 1980 • 111 




Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software" — "In- 
stant Software"— "Level IV "products and so on, 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at J19. 95 



Announcing 

NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 6 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 5 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! only*14. 95 




(COUPON) 

Micro Matrix 

P.O. Box 938 • Pacifica, CA 94044 

Send for yours NOW: (41 5) 355-4635 

Name 



Address 
City 



Zip 



Card# 

Ex. 

Date 



St.. 



Photopoint 
n $19.95 

Pen Basic 
□ $14.95 



Money 
CK. Order Visa MC 

— p r-i 



INTELLIGENT 
TERMINAL SOFTWARE 

WITH FULL 
PAGING CAPABILITIES 

• CASSETTE AND DISK VERSION • 

Z80 ASSEMBLY LANGUAGE PROGRAM GIVES 
YOUR COMPUTER THESE FEATURES: 

• Line Scroll Up/Scroll Down 

• Page Up/ Page Down 

• Screenlock Top and Bottom 

• Full Cursor Control 

• Memory Buffer Overflow Protection 

• Automatic Right Justification 

• Automatic Formatting 

• Full/Half Duplex 

• Disk Version-File Upload/File Download 

LEVEL II COMPUTERS - TERMCOM'" RS-232 
INTERFACE BOX GIVES YOU INTELLIGENT TERMINAL 
CAPABILITIES WITHOUT EXPANSION INTERFACE. 

TERMCOM" RS-232 Interface Box Includes 
RS Connector. Power Cables and Cassette 
Intelligent Terminal Software SI 25. CO 

Disk Software $ 35. CO 

Documentation Only $ 1 0.OO 

STATCOM^ - 

5758 Balcones Drive Suite 202 
Austin. Texas 78731 51 2/451 -0221 



CHESS * BACKGAMMON * MORE' 

NEW MACHINE LANGUAGE GAMES' 



FOR l«K LEVEL 



Z-CHESS 

Play the classic game of CHESS using tmf 
TRS-eo graphics. Seven levels of difficulty 



lUr 



OF 



Alpha-Beta 

EMPLOYED to 

ium. SETUP 

ARRANGED AS 
UO.N6 CAST 

LING and EN PASSANT captures Numbered 
squares simpiify move input Possibly the 
fastest good strategy chess game available 1 

... * I ' 95 



a challenging game for 
pruning and move sorting 
keep re5ponsf times to a 
mode allows the board ti 
dfsireo. Plays all movfs 




BACK-40 




/I1ING 



A SUPERIOR OPPONENT WHICH MAKES EX 
USE OF THE TRSlO GRAPHICS TO Dl^ 
REGULATION STYLE BACKGAMMON 

the dice! BACK 40 DOUBLES if it stands a 

GOOD CHANCE OF WINNING WHICH ~IT USUALLY 

does! Every feature of a regulation BACK- 
gammon match is included even keeps 
score! 

$14 95 



DR. CHIPS — ■ — 

A FASCINATING PROGRAM BASED ON THE FAMOUS 

"DOCTOR" and •ELIZA'programs Simply 
TALK"(er."TYPE") to your computer 
dr chips will analyze your sentences and 

"TALK" back to you immediately! Although 

DR CHIPS' RESPONSES SHOULD NOT BE TAKEN 
SERIOUSLY. HF IS THE ULTIMATE COMPUTER 
INTRODUCTION FOR THE FAMILY AND FRIENDS 
AND A SUPER "CONVERSATIONALIST" AT PARTIES? 
$14.95 



IMMEDIATE 

SHIPMENT BY 

FIRST CLASS 

MAIL 



"TRS-80 is a registered trademark of TANOV CORP." 
The Software Association ^60 
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HARDWARE 



Smooth out your 80's power 
glitches with a simple regulator. 



Regulate it! 



William Klungle 

1820 W. Lakewood Blvd. 

Holland Ml 49423 



As stated many times before 
in Microcomputing, the 
Radio Shack TRS-80 is a lot of 
computer for the money invest- 
ed. However, even with a good 
product such as the TRS-80, 
there is room for improvement. 

One of the areas that Radio 
Shack seems to have over- 
looked is the voltage regulation 
of the monitor. The regulation 
in the computer itself is ex- 
cellent, but voltage regulation 
in the monitor is almost nonex- 
istent. Any variation in the ac 
house current, such as may be 
caused by a pump or a dish- 
washer or a disk drive, results 
in a noticeable fluctuation of 
the video display. 

Shortly after purchasing a 
TRS-80, I decided, for aesthetic 
reasons, to place the separate 



power module of the computer 
inside of the monitor case. This 
allowed the computer to reside 
on" the family-room book- 
shelves and, with a small 
amount of rewiring, provided a 
single power switch for the en- 
tire system (see "Turn It Off!" 
Microcomputing, April '78. p. 
114). As long as the monitor was 
on the workbench anyway. I 
took a close look at the power 
supply circuit to see what could 
be done about the regulation 
problem. 

Regulating Transistor Circuit 

The original circuit consisted 
of a half-wave rectifier and 
several RC filter networks (Fig. 
1). The characteristics of the 
transistor circuits tend to 
amplify even the small varia- 
tions in supply voltage, so that 
without some type of regula- 
tion the video display would 
never stand still. 

In the monitor's early life as a 
portable television, there were 
provisions made on the chassis 



for an additional transistor to 
be mounted. The chassis has 
been punched to mount a TO- 
66-style transistor in the same 
area that the rectifier is 
mounted. Voltage regulation 
can easily be added by using 
only four inexpensive parts. 
The regulator circuit is not 
critical in its specifications, 
and any components that meet 
or exceed the minimum require- 
ments may be used success- 
fully. The original power supply 
provides approximately 120 V 
dc @ 350 mA. Any NPN silicon 
transistor in a TO-66-style case 
with a break-down voltage 
(VCEO) of over 150 volts and 



maximum current rating (Ic) of 
500 mA should work. 

Unfortunately. Radio Shack 
does not list some of the parts 
needed for this modification, 
so unless your local store hap- 
pens to carry parts that are not 
in the catalog, you will have to 
seek another parts supplier. 
The parts I used are shown in 
Table 1. 

The regulator circuit is wired 
as shown in Figs. 2 and 3. The 
180k resistor serves as a current 
limiting resistor for the zener 
diode. The zener holds the base 
of the regulator transistor at 
100 V dc. The transistor's emit- 
ter will always be within .6 volts 



• a- .,-"_• 




Fig. 1. Original circuit. 



1 Sylvania transistor 

1 Sylvania socket 

1 Sylvania zener diode 

1 180k 1W resistor 

Total cost should not exceed $5. 

Table 1. Parts list 



ECG 124 
ECG 421 
ECG 5050 



T 



ZENEB'i i 



-»B» SUPPlv 



f > i- SUPPL* 



Fig. 2. Modified circuit. 
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dc of the base voltage. The 130 
Ohm, 7 Watt resistor, which was 
a part of the original power sup- 
ply, distributes the supply volt- 
age, which is in excess of the 
100 volt output of the regulator. 



OHIUINAl POSITION OF _ 

ISO OHM RESISTOR - -._ ^'\lTT 

NEW POSITION OF " '"' 

ISO OHM RESISTOR ~, 



Short the 22 Ohm resistor 
(jumper**) with a piece of wire. 
Removing this resistor allows 
the regulator to function over a 
greater range of line voltage 
variations. 




INSTALL JUMPER WIRE 



ZENER DIOCE 



Fig. 3. Circuit modification. 



Modification Tips 

Consider the following possi- 
ble hazards: 

1. Be sure to unplug the 
power cord before you work on 
the monitor. 

2. When installing the tran- 
sistor, be sure to use the mica 
insulator and the two in- 
sulating washers supplied with 
the transistor. These isolate 
the transistor from the chassis. 

3. Use a silicone-based heat- 
sink compound between the 
transistor and the mica and be- 
tween the mica and the 
chassis. The silicone ensures 
proper heat dissipation. 

4. Use caution when working 
around the exposed CRT (pic- 



ture tube). A sharp blow on the 
neck of the tube could cause an 
implosion, which would be, at 
the least, costly— not to men- 
tion dangerous. Place a large 
towel or heavy cloth over the 
tube while it is exposed; this 
will protect you in case of acci- 
dent. 

5. Before putting the back on, 
turn the monitor on and check 
to make sure the raster is filling 
the screen. If not, adjust the 
centering rings located around 
the neck of the tube at the rear 
of the deflection yoke. 

This entire project should 
take about one hour to com- 
plete and will put an end to the 
TRS-80's "dancing display. "■ 



TRS-80 users 

Learn FORTH 

FORTH in t tinn-mied high k>el language thai drarrutKillv 
vuiv program Joekipmeni lime \**i ^an cvpand the 
KHtTH language b> defining nc* operations and datatype 
FORTH programs are compiled to reduce memory space and 
speed csevutKWi 

lintrORTH is a complete sersion of the powerful rORTH 
language tailored to the iRS-HO The tmsrORTH system 
includes l-ORTH. a ux\ editor, an assembler, graphics, and 
cassette I/O 

Learn FORTH on your own computer The nn> FORTH 
uxr's manual contains hundreds ol examples to teach you 
FORTH in a hands on style. 

liny FORTH tor If* level II TRS-80: 

Cassette and lull documenla.ion $29.93 

Documentation only J 9.93 

All orders are tulry guaranteed \r.d SI SO lor postage and 
handling Order with check, money order. Vi»«. or 
Master, harge 

Write tor a FRF.F. booklet describing FORTH 
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Ikrpt. AI7 Rnton. VA HOW 



. ■ Micro- Futures " . 



SUPPORT FOR 

TRS-80 TRADERS 

//V COMMODITY FUTURES 

Commodity Market Analyst (Disk) S125 
Commodity Market Analyst (Cass) S 75 

Trend Analysis (Disk) S100 

Point & Figure (Disk) $100 

Data Management (Disk) S 45 

Commodity Futures Data From 

MJK ASSOCIATES - Santa Clara, CA 

Direct Telephone Access Available 

Also Disk or Cassette Data 

FREE BROCHURE' SEND TODAY ' 

Micro- Futures Trading Company 
MFTC Box 1603 / Goleta CA 93017 

• 105 



GRAPHELPdoesitforyou 
No more!!!! worksheets 
calculating CHR$ code 
video/memory locations 
GRAPHELP will let you 
Sketch: on screen 
Display: x,y values, poke & 
print locations & code 
Print & LPrint data tables 
Construct disk data files to 
merge in your programs 
Lll BASIC 16Kw/doc. 
send $10 phone614 

GRAPHELP 6950435 

Radio Shack 
165 West Main 
St. Clairsville, OH 43950 
GRAPHELP GRAPHELP 



►^135 



TRS-60 SOFTWARE 



MAILING LIST<32K. disk). $69.95 

Over 1000 names and addresses on a single diskette 
Add. change, delete, find name, alphabetic or zip 
code sort, print labels 

HOME BUDGET (32K. disk) S49.95 

Keeps track of your checkbook, income and month- 
ly bills Monthly and year-to-date summaries 
SMALL BUSINESS ACCOUNTING (32K. disk). $49.95 
Handles income, expenditures and payroll for a 
business of up to 16 employees. Daily, monthly, and 
year-to-dale totals. Designed after Dome Bookkeep- 
ing Journal. 

MONITOR #4 $49.95 

Machine language monitor Including disassembler, 
memory display, move, verify, search, modify; object 
code relocater; read and write ob|ect tapes or disk 
tiles: communicate via RS-232-C Interface; more. 

SMART TERMINAL $49.95 

For use of RS-232-C Interface with a time-sharing 
system Automatic memory transmission; control 
key. upper/lowercase. 

CONSULTING. ADVICE. DEVELOPMENT Of CUSTOM 
SOFTWARE TO SUIT YOUt NEEDS. 

HOWE SOFTWARE 

14 LEXINGTON ROAD ^-103 
—_. NEW CITY, NEW YORK 10956 ^m 



GET. Paid ^ 

for using your 
Computer **» 

FUN' Eas 7 eS3v 

RUSH COUPON FOR ^ 
FREE FACTS 

&&* SPARE TIME 



|g 



Send today to DAR- E3 
3310 Fulton Ave . Sacramento CA 95821 ^ 134 




TRS-80 Owners! We want to be your 

ALTERNATE SOURCE 

for Software and Information! 

Available NOW: 

CD-This Z-80 program allows you to 
access and copy ANY diskette file-even 
from formatted-only diskettes! A must 
for single drive owners; a valuable tool 
for all disk users. With diskette $15.95. 

ISAR-lnformation Storage and Retrieval. 
A very fast and usable Data Base system 
which uses Random files that you create 
using easy oromots. Excellent routine 
for sorting! Best available at even near 
the price. With source/diskette $16.95. 
THE ALTERNATE SOURCE NEWS-A 
publication containing lots of good info 
and offers to help interface YOU with 
your TRS-80. 6 issues-$9.00. Sample 
copy-$2.00 

Check our bingo number for more juicy 
off en or order the above directly from: 

THE ALTERNATE SOURCE 
1806 Ada ^na Lansing. Ml 48910 

We ship FAST! BAC/MC 517 487-3358 
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UTILITY 



Forgotten which tapes are what? 
Use Whazit to identify system and BASIC tapes. 



Whazit? 



J. B. Penny 
1537 Ramada 
Houston, TX 77062 



The Radio Shack TRS-80 com- 
puter with the Level II up- 
grade has two schemes for 
loading memory locations from 
cassette. The most frequently 
used is the CLOAD command. 
This reads in a tape in the BASIC 
format. A second scheme 
employs the SYSTEM com- 
mand. This command is normal- 
ly used to load machine lan- 
guage tapes. 

Even though both methods 
operate at 500 baud, the formats 
are different. Any attempt to 
load using the wrong method 
will, at best, result in a simple 
failure to load. At worst, it could 
force you to reset or power- 
down to regain control of the 
machine. 

Deviations 

To further complicate things, 
several available utility pro- 
grams allow you to write cas- 
settes in other than CLOAD or 
SYSTEM formats such as RSM- 
1S, GSF and The Electric Pencil. 
The Level II version of Micro- 
chess, for example, incor- 
porates a special program 
loaded as a preamble to the 
main program. 

Couple this with a typical hob- 
by computerist's tape labeling 
and filing system and you'll get 



a fair sized mess. I must have a 
dozen tapes labeled simply 
"TEST". Some aren't labeled at 
all! 

Machine code programs are 
particularly fond of deviations. 
Though the TRS-80 requires a 
file name when operating under 
the SYSTEM command, T-BUG 
allows you to load machine ob- 
ject code without one. But if you 
don't know where your "mys- 
tery" program is located, you 
may crash both programs. 

Since I believe "it is better for 
me to light one small candle 
than to curse the darkness," I 
am furnishing the following 
listing. I call it WHAZIT. Though 
it's a long way from a total solu- 
tion, WHAZIT can be a great 
help. 

After loading WHAZIT I can 
read the header (and machine 
code trailer) from a 500 baud 
cassette without actually 
loading the tape into memory. 
The file name and memory loca- 
tion are displayed on the screen. 
Do yourself a favor; write it on 
the tape label this time. 

What's WHAZIT? 

WHAZIT was written on the 
Radio Shack Editor/Assembler. 
Its first 170 lines or so are the 
business end of the program. 

After sync is found, the first 
eight bytes are read from the 
tape and stored in an assigned 
work space. A three way branch 
is then set up where the first 
byte after sync is checked to 
make a tentative format assign- 



ment. If neither Radio Shack for- 
mat is found, the default mes- 
sage is printed on the screen. 
BTEST and STEST do further 
checking to confirm the format. 
If the format is BASIC, then the 
tape player is stopped and the 
file letter is printed on the 
screen along with the other in- 
formation. 

If the tape is in the SYSTEM 
format, then it is read all the way 
to the end to calculate the end 
address and extract the start 
point addresses. The start point 
address occupies the last two 
data bytes stored on the tape. 
This address is located when 
/ENTER is typed after loading a 
SYSTEM tape. 

Clever programmers have 
been known to write TRS-80 pro- 
gram tapes where address 
blocks are not contiguous. The 



SYSTEM format allows this by 
preceding each data block with 
its own start address. If the ad- 
dresses don't make sense, this 
may be the reason. Confusion 
may also be caused by a bad 
load. 

Error checking is not included 
in the program. 

Subroutines 

A couple of useful subrou- 
tines can be found buried in the 
program. COMPU will output 
whatever is loaded in the HL 
register as a four digit hexa- 
decimal address. OUTPUT will 
print a string of ASCII char- 
acters, beginning with the ad- 
dress pointed to by the HL 
register plus one. The first byte 
should contain the length 
(number of characters) to be 
printed in the string. ■ 









Program listing. 


•A WEAZIT/NS 










4CAB 




00100 




OM 


4CABH 






00110 


i PROGRAM RAME 


WHAZIT: PRINTS PILE NAMES 






00120 


;AWD OTHER OOOD STUFF. BY J. B. PENNY 


•CM 


21003C 


001 30 


START 


LD 


HL.3C00H; BOMB CURSOR 


4CAE 


222040 


00140 




LD 


(4020H).HL 


4C81 


CD7C05 


001 SO 




CALL 


b/CH I CLEAR SCREEN 


4CM 


21PB4D 


00160 




LD 


BL.N901 


4C17 


CD3C4D 


00170 




CALL 


OUTPUT 


4CM 


£D2B00 


00180 


KBD 


CALL 


2BB (KEYBOARD SCAR 


4CBD 


17 


00180 




OB 


A (PALLS THRU 


4CH 


»PA 


00200 




JR 


Z.KBD |IP CARRAOE 


4CC0 


nop 


00210 




CP 


13 |RS1URM 


4063 


20P6 


00220 




JR 


m,KBD 


4CC4 


AT 


00230 




XOR 


A |HAKB A-0 


4CCS 


CD1 202 


00240 




CALL 


2121 t DEFINE DRIVE 


4CC8 


CDM02 


00250 




CALL 


2MB |PIHD SYNC 


4CCB 


21ED4D 


00260 




LD 


RL.NBUPP 


4CCB 


0600 


00270 




LD 


B,8 


4CD0 


CD3S02 


00280 


LDLOOP 


CALL 


235E iKEAD 1ST 8 


4CD3 


77 


00290 




LD 


(HL),A jBYTES INTO 


4CD4 


23 


00300 




IRC 


ix |mm wrm 


4CD5 


ION 


00310 




DJNZ 


LDLOOP 


4CD7 


21ED4D 


00320 




LD 


EL, MBUPFl BEGIN TEST 


4CDA 


3E55 


00330 




LD 


A ,551 (CBBCK PUR 


4CDC 


BE 


00340 




CP 


(HL) (SYS. READER 


4CDD 


2835 


00350 




JR 


Z, STEST 



v* Reader Service— see page 147 
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4C0F 3ED3 


00360 


LD 


A.0D3I 


(CBECK FOR 


4CE1 n 


00370 


CP 


(n.) 


(BASIC HE ADR. 


4CE2 2814 


00390 


JR 


Z, BTEST 




4CE4 21754! 


00390 DEFALT 


LD 


BI.HS02 


;Ee FAULT NSC 


4CE7 CD3C4D 


00400 


CALL 


OUTPUT 




4CEA ED5B2040 


00410 


LD 


DC , ( 4020H) | DESTI RATION 


4CCt 21ED4D 


004 20 


LD 


■L.HBOFF 


( SOURCE 


4cn 010800 


00430 


LD 


»c,e 


; BYTE COUNT 


4CP4 EDBO 


00440 


LDIR 




t XPER DATA 


4CP8 184D 


00450 


JR 


TOFP 




4CP8 23 


00460 BTEST 


IMC 


BL 


tTEST POR 3 


4CP» BE 


00470 


CP 


(BL) 


|D3'S IN A ROM 


4CPA 20S8 


00490 


JR 


NZ, DEFALT 


4CPC 23 


00490 


IMC 


HL 


(DEFAULT IP 


4CPD BE 


00500 


CP 


(BL) 


(HOT POUND 


ten 20C4 


00510 


JP 


N2. DEFALT 


4D00 211 MP 


00520 


LD 


RL.N803 




4D03 CD3C4D 


00530 


CALL 


OUTPUT 




4D06 21P04D 


00540 


LD 


HX.NBUFP 


♦3 


4009 7E 


00550 


LD 


A,(BL) 


; PRINT TIE 


4DOA CD3300 


00560 


CALL 


33B 


;PILB NAME 


40OD 3B22 


00570 


LD 


A.22B 


(CLOSE 


4DOP CD3300 


00560 


CALL 


33H 




4D12 1831 


00590 


JP. 


TOPP 




4D14 CD3502 


00600 STEST 


CALL 


235B 


(READ BYTE 


401 7 47 


00610 


LD 


B.A 


(COUNT L LD. 


401 8 CD664D 


00620 


CALL 


RLADDR 


(START ADDR. 


4018 22P54D 


00630 


LD 


( STARTA ) 


,RL 


401 E BS 


00640 


ADD 


A,L 




401 P 4P 


006 50 


LD 


C.A 




4D20 CD6P4D 


00660 


CALL 


BLOCK 




4D23 CD3502 


0067 LOOPD 


CALL 


235B 




4D26 F£"78 


0068^ 


CP 


78B 


(CBECK POR ENTRY 


4D29 295E 


00690 


JP 


Z.ENDSY3 


( POINT READER 


4D2A P»3~ 


00700 


CP 


3CI 


(CBBCK POR START 


4D2C 2 OP 5 


00710 


JR 


PJ2, LOOPD | OP DATA READER 


4021 CD3S02 


00720 


CALL 


2351 




4D31 47 


00730 


LD 


8, A 


(BYTE COUNT 


4D32 CD664D 


00740 


CALL 


HLADDR 




4DJ3 B5 


00750 


ADD 


A,L 




4D36 4P 


00760 


LD 


C.A 




4037 CD6P4D 


0O770 


CALL 


BLOCK 




4D3A 18B7 


00780 


JP. 


LOOPD 




4D3C 46 


00790 OUTPUT 


LD 


B,(BL) 


(PRINT A STRING 


4D3D 23 


00800 


II»C 


WL 


(OP ASCII CHAR. 


4031 71 


00610 


LD 


A,(BL) 




4D3P CD3300 


00820 


CALL 


33B 




4D42 10P9 


00830 


DJHZ 


OUTPUTS 




4D44 C9 


00840 


RET 






4045 212020 


00850 TOPT 


LD 


BL, 20201; TURN OFF 


4D48 223E3C 


00860 


LD 


(3C3E1) 


BL; BOTI •*8 


4D4B CDF801 


00870 


CALL 


1P8R 


( AND ROTOR 


4MB 216A4F 


00880 


LD 


BL.NSOS 




4DS1 C03C40 


00890 


CALL 


OUTPUT 




4D54 CD2B00 


00900 ASK 


CALL 


2BB 


(SCAN KEYBOARD 


4DS7 B7 


00910 


OR 


A 


(POR BREAK OR 


4D58 28PA 


00920 


JR 


Z.ASK 


(CARRAGE RET. 


4DSA PI01 


00930 


CP 


1 


| BREAK MEANS 


4D9C CA6600 


00940 


JP 


Z.66B 


(RET. TO BON 


4DSP PEOD 


00950 


CP 


13 


(CARRAOE RET. 


4D61 CAAB4C 


00960 


JP 


Z, START 


(MEANS TO 


4D64 20EE 


0O970 


JR 


HZ, ASK 


(START OVER 


4D66 CD3502 


00980 BLADOR 


CALL 


nil 


(READ NEXT 2 


4D69 6P 


00990 


LD 


L.A 


(BYTES PROM 


4D6A CD3502 


01000 


CALL 


235B 


(TAPE 4- LOAD 


4D6D 67 


01010 


LD 


B.A 


(INTO THE BL 


4D6E C9 


01020 


RET 




; REGISTER 


4D6P 85 


01030 IWC« 


ADD 


A.L 


(READS A BLOCK 


4070 4P 


01040 


LD 


C.A 


(OP DATA OP TO 


4071 C03502 


01050 


CALL 


23SB 


(256 BYTES LONO 


4D74 23 


01060 


IMC 


HL 


(BUMP POINTER 


4D75 81 


01070 


ADD 


A.C 


(KEEP CKSUM 


4076 4P 


01080 


LD 


C,» 


(IN REO. C 


4077 CD2B00 


01090 


CALL 


2BH 


;KBD SWEEP 


4D7A PE01 


01100 


CP 


1 


(STOP ON 


4D7C 28C7 


01110 


JR 


Z.TOFP 


; BREAK 


4078 10P1 


01120 


DJHZ 


BLOCK* 2 


; LOOP TILL DONE 


4000 CD3S02 


01130 


CALL 


235R 




4D83 B9 


01140 


CP 


C 


;IS CKSUM VALID? 


4084 CC2C02 


01150 


CALL 


Z.22CH 


(THEN BLINK • 


4D87 C9 


01160 


RET 






4088 2B 


01170 BNDSY1 


DEC 


BL 


(STORE END ADDR. 


4089 22P74D 


01190 


LD 


(EHDA), 


BL 


4D8C C0664D 


01190 


CALL 


RLADDR 


(STORE ENTRY PT. 


4D8P 22P94S 


01200 


LD 


(ENTRYA) ,HL 


4092 213C4P 


01210 


LD 


HL.M904 


(SYSTEM MSG. 


4095 CD3C4D 


01220 


CALL 


OUTPUT 





4D98 0606 


01230 




LD 


B.6 


( PRINT 


4D9A 21EE4D 


01240 




LD 


HL.MBUPF 


♦1( THE 


4D9D 7E 


01250 


LOOPP 


LD 


A,(HL) 


[ PILF 


4D9E CD3300 


01260 




CALL 


33H 


NAME 


4DA1 23 


01270 




INC 


HL 




4DA2 10P9 


01290 




DJNZ 


LOOPP 




4DA4 21A84P 


01290 




LD 


HL,MSG6 




4DA7 CD3C4D 


01300 




CALL 


OUTPUT 




4DAA 2AP54D 


01310 




LD 


HL,( STARTA) 


4DAD CDC44C 


01320 




CALL 


COMPU 


(PRINT START ADDR. 


4DB0 CDCB4D 


01330 




CALL 


COMMA 




4DB3 2AP74D 


01 340 




LD 


HL.(ENDA) 


4DB6 CC-44r 


01350 




-ALL 


C0.1PU 


(PRINT END ADDR. 


4DB9 CDC«<4D 


01 J60 




CALL 


OOMMA 




4DBC 2AP94D 


01 370 




LD 


HL, 'EMTRYA) 


4D9P CD*44D 


01 33T 




CALL 


CO-PU 


; PRINT ENTRY ADDR. 


4DC2 1981 


01390 




JR 


TOPP 




4DC4 7c 


01400 


CO-PU 


\.z 


A.H 


; WRITES HL REG. 


4DC5 CDD64T 


01410 




C»LL 


OUTHL 


(CONTENTS AS 4 


4DC8 70 


01420 




LD 


A.L 


(DIGIT HEX ADDR. 


4DC9 1B0« 


01430 




JP 


OUTHL 




4DCB 3E2C 


01440 


~0""".A 


LD 


A.2CH 


;PUTS IN COMMA 


4DCD CD3300 


01450 




CALL 


33H 




4DD0 3E20 


014 60 




LD 


A.20H 


:ANC SPACE 


4DD2 CD 3 3 00 


01470 




CALL 


331 




4DD5 C9 


01490 




RET 






4DD6 P5 


01490 


OUTHL 


PUSH 


AF 




4DD7 OP 


01500 




RRCA 




(SWAP PLACES 


4DD8 OP 


01510 




RRCA 




;WITH BITS 0-3 


40D9 OP 


01520 




RRCA 




;AND BITS 4-7 


4DDA OP 


01530 




RRCA 






4DDB CDDP4D 


01540 




CALL 


BIASCI 




4 DDE PI 


01550 




POP 


AP 


(DO IT TWICE 


4DDP E60P 


01560 


■IASCI 


AMD 


15 


(CLEAR BITS 4-7 


4DE1 PEOA 


01570 




CP 


10 


;JUMP IP A«10 


4DB3 3902 


01590 




JR 


C, NUMBER 


;IP A«4 THEN 


4DE5 C607 


0159C 




ADD 


A. 7 


(CHANGE TO LTR. 


4DE7 C630 


01600 


NUMBER 


ADD 


A.'O' 


(ASCII OFFSET 


4DE9 CD3 300 


0161C 




CALL 


33H 




4 DEC C9 


01620 




RET 






4DED 0000 


01630 


"HUPP 


DEPW 





;PIRST 8 BYTES 


4DEP 0000 


01 640 




DEPW 





(READ FROM TAPE 


4DP1 0000 


01650 




DEFW 





(ARE STORED HERE 


4 DP 3 0000 


0166T 




DEPW 







4 DP 5 0000 


0167") 


STARTA 


Dsrw 





(START ADDRESS HERE 


4DP7 0000 


01690 


"Hth 


D r EW 





(END ADDRESS HERE 


4DP9 0000 


01690 


••MT'YA 


D'PW 





;ENTRY ADDRESS HERE 




01695 


•LIST 


PP 






00000 TOTAL 


'3R0PS 










READY CASSETTE 










•P1695:» 












01695 'LIST 


OPF 










01700 MSG1 


DEPB 


121 


(SCREEN MSGS. 


HERE TO END 


01710 


D"" 


'THIS 


PROG" 


AM READS A 


5 00 BAUD TAPE' 


017 20 


DEPM 


' HEADER & 


PRINTS THE 


SYSTEM' 


01730 


DEPB 


13 








01740 


DEPK 


'PILE 


NAMF 


OR BASIC PILE LETTER. ' 


01750 


DEPM 


'LOAD 


TAPE 


AND HIT ENTER.' 


01760 


DEPW 


ODODH 








01770 MSG2 


DEPP 


161 








01790 


DEPM 


THE 


READER 


JUST READ 


WILL NOT LOAD' 


01790 


DEPM 


' USING EITHER THE "SYSTEM"' 


01800 


DEPB 


13 








01810 


DEPM 


'COMMAND OR "CLOAD - . 


A GRAPHIC ' 


01820 


DEPM 


REPRESENTATION OP THE PIRST' 


01830 


DEPB 


13 








01840 


DEPM 


'EIGHT BYTES FOLLOWING ' 


01850 


DEPM 


'THE 


SYNC CODE ARE ' 




01860 MSG 3 


DEPB 


37 








01870 


DEPM 


HEADER IS 


IN BASIC ' 




01880 


DEP" 


'FORMAT USE CLOAD "' 




01990 MSG4 


DEPB 


45 








01900 


DEPM 


'HEADER IS 


IN "SYSTEM 


FORMAT. 


01910 


DEP" 


'PILE 


NAME 


IS 




01920 MSG5 


DE»B 


61 








01930 


D»PB 


13 








01940 


DtPM 


'PRESS ENT»R TO GO AGAIN, BREAK ' 


01950 


DEPM 


'TO 'OUIT AND RETURN TO BASIC* 


01960 


DEPB 


13 








01970 NSG6 


DEPB 


62 








01980 


DEPB 


13 








01990 


DEPM 


'HEX 


STARTING, ENDING 


AND ENTRY PT. 


02000 


DEPM 


'ADDRESS'S 


ARE AS FOLLOWS I ' 


02010 


DEPB 


13 








02020 


END 


START 







JOB LOT BIDDING 
Manufacturers or dealers with 
job lots of merchandise, systems, 
software, publications, parts, test 
equipment, printers, terminals, 
disks, tapes, monitors, etc. Please 
contact Sherry Smythe at 603-924- 
3873. KB Microcomputing/80/181 
need thess for the lab and we would 
like to bid on your equipment. You 
could do better than an auction ... a 
lot better. 
Waune 



X 



PETERBOROUGH NH 03458 























JOOBNAL 

JANUABY I97S 




SIAtEMtN' 0' »RO«" lOSS 
tO" P-:0lO0 EN>NG JANUABY >9?8 




rz 










L^ 




ACCl SUB 0€SC«»TOH « ' • OATI AMOUNT 


NTBY 




OOATf 


(^u/Laisii^ 




Ml 00 000 "t 3000CB 


Jl 1 


GAS40* 4GA*ASI «HX" V.WCA AJOac* 


'".«C» 


L^LafUuiii: 




»' 00 JOUANAIINTA. 000 !"• OUT 
















"AMGCAAfNl -tVC* 'WOOCA tMM 
A.AAtANt •€•*' rtMCB «•« 4>«A 

WOAYIHG 'NCSA* 000 000 000 
OTM(A.NCO»l OW *CA 1MC« 
'ijU, iNCOVl 10000C" 10AOMCA 10000CA 


AKA 


We h>»« ■ complete 




xa 00 000 1>7« JIOOOCB 
XO 00 000 ''7» noooe» 

KU 00 »»«"S 000 171 AM MCA 
MJ 00 000 i '« KO 11CB 

K) 00 jOU«NAt EX'»> 000 ' •« ur« 
jio oo ixc ' 7b i*n noc^ 


IT 

» 

n 






selection ol disk and 




u 


GAS » IXi "--Ml n.M . MAC* /d*.-S WTfcA 


*)1«' 


cassette based business 




1 00 jOU«NAl ENIH> 0W> 78 250W 


** 












and TRS-80 computers. 










■". .' 


Call or write lor tree 




'RIAL BALANCE 








brochure. 

201 Worley Rd 




JANUAHY i«76 














<:■ 




JANUABY 1978 




(314)624 7611 








ASSE'S 












CASH ON NANC "••: ' 'C" 
CAS" N 6AN« ?'90M 




ViSA BBM 




fc*i«0CA 

00 MUCH ^77 


JIS'AKB 








• •'-' 000 "71 U6XO> 




ACCRUED Dt ''HI C'ATiON 00 




bjsbbsbi ^b*sK 


'. 






BoSiNESS VEHICLES 00 












BUSINESS AIRCHAFT ^OOOOUO 




►^132 


..4 




OO 


ACCHUEDDEPHICIAIION 64J07CH 
METER OFPOSIIS 00 




Dealer inquiries inviled. 


.-. 


K OUtStOf HO* <3" 


OC 


TOTAL ASSETS 260" N> 
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APPLICATION 



Find out how you are 
physically, mentally and emotionally. 



Biorhythms 



Ralph E. Holthausen 
25 Willets Drive 
Syosset, NY 11791 



Even if you don't believe in 
biorhythms, your friends 
will enjoy this program when 
you draw their biorhythm curve 
for them. The program, created 
for the TRS-80 Level II BASIC, 
can be adapted to other BASIC 
units. For anyone who wants a 
numerical indication of the daily 
biorhythms there is a short alter- 
nate program included. 



The idea behind the main pro- 
gram is that biorhythms can 
best be represented by a sine 
curve. Normally, on paper, this 
curve is plotted on a horizontal 
axis. However, on the computer 
curve plotting is easier on a ver- 
tical axis. Highs or plus values 
are on the right of the vertical 
axis and lows or minus values 
are on the left. 

The Theory 

Biorhythm means rhythm of 
life. The basis of the biorhythm 
theory is that our lives are 
governed by cycles that start at 
our day of birth. There are three 



such cycles whose curves are 
plotted by the following pro- 
gram. The theory has been ap- 
plied recently to accident pre- 
vention. Many companies are 
studying biorhythms and their 
effects on airline pilots, athletic 
teams; doctors and surgeons, 
relative to performing opera- 
tions, have studied biorhythms. 
From the day we are born, the 
theory states, we are governed 
by cycles. The 23 day cycle 
called the physical cycle gov- 
erns the condition of one's 
body. The 28 day cycle called 
the emotional or sensitivity cy- 
cle governs one's temperament. 



The 33 day cycle, called the in- 
tellectual cycle, influences our 
intellect or thinking capacity. 
Those who have investigated 
the theory seem to agree on the 
length of these cycles as 23, 28 
and 33 days respectively. 

The physical cycle is said to 
affect our vitality and strength. 
The plus period which will be on 
the right side of the curve as 
printed by our computer, lasts 
1 1 Vi days and these are days of 
physical vitality, stamina, 
strength and durability. It is a 
period of self confidence, 
courage and progressive spirit. 
Athletes usually find this period 



2 PRINT " BIORHYTHMS 








300 E = INT(28 • (DT/28 - INT(DT/28))) 


3 PRINT 








310 CLS 


1* PRINT "THERE ARE THREE CURVES .. .PHYSICAL 


EMOTIONAL 


AND" 


320 FOR I = TO 2 • 3- 14159265 STEP .48 


5 PRINT 








330 PRINT TAB(20 • (1 ♦ SIN(I))) s "+" 


6 PRINT "INTELLECTUAL. HTGHS ARE TO THE RICHT. . 


. . LOWS 


ARE" 


340 NEXT I 


7 PRINT 








350 X - 40 


8 PRINT -TC THE LEFT. FLASHER INDICATES YC'JR B 


I0RHYTHM I-".?" 


360 FOR Y - TC 4? 


9 PRINT 








370 SET(X.Y) 


10 PRINT "THIS DATE. "USHER ON LINE IS A 


CRITICAL.' 




380 NEXT Y 


11 PRINT 








385 PRINT "EMOTIONAL" 


15 INPUT "ENTER YC'JR BIRTKDATE. .YONTH. DAY. 


YEAR 


■1 N.D 


YF 


390 LET X2 = 40 • (1 ♦ SIN(E • .22441} 


20 IP M <= 2 THEN 50 








400 LET Y2 - 2 + E • (39/28) 


30 Dl = INT065.25 • YR) 








405 FOR N - TO 200 


1*0 D2 » INT((M ♦ 1) • 30.6) t GOTO ?0 








410 SET(X2.Y2) 


50 Dl - INT(365.25 * (YR - D) 








420 RESET(X2.Y2) 


60 D2 = INT(M * 13) * 30.6 








425 NEXT N 


70 D3 = D + Dl + D2 








427 INPUT "DO YOU WISH TO SEE THE INTELLECTUAL FCR TC::AY" iZS 


80 INPUT "ENTER TODAY'S DATE.. MONTH, DAY. YEAR" 


! M.D. 


YR 


428 IF Z$ --- "YES" THEN 500 


90 IF H<' 2 THEN 120 








430 END 


100 Dl = INT(365-25 • YR) 








500 L = INT(33 * (DT/33 - INT(DT/33))) 


110 D2 ^ INT((M + 1) • 30.6) : GOTO 140 








510 CLS 


120 Dl - INT(365-25 * (YR - D) 








520 FOR I - TO 2 • 3- 14159265 STEP .46 


130 D2 = INT((M ♦ 13) • 30.6) 








530 PRINT TAB{20 • (1 ♦ SIN(I))) : "*" 


140 E4 r. ; . Dl t D2 








540 NEXT I 


150 DT = D4 - D3 








550 X -- 40 


160 P = INT(23 " (DT/23 - INTOT/23))) 








560 FCR Y = TO 4? 


170 CLS 








570 SET(X.Y) 


180 FOR I = TO 2 • 3.14159265 STEP .48 








580 NEXT Y 


190 PRINT TAB(20 • (1 -r SIN(I))) : "♦" 








585 PRINT "INTELLECTUAL" 


200 NEXT I 








590 LET X3 = ^0 • (1 + SIN(L • .1904)) 


210 X •= 40 








600 LET Y3 = 2 ♦ L • (39/33) 


220 FOR Y = TO 47 








605 FCR N - TO 200 


230 SET(X.Y) 








610 SET(X3.Y3) 


240 NEXT Y 








620 RESET(X3.Y3) 


245 PRINT "PHYSICAL" 








625 NEXT N 


250 LET XI = 40 • (1 + SIN( P • .273182)) 








62? CLS 


260 LET Yl = 2 + P * (39/23) 








630 INPUT "DO YOU WISH ANOTHER BIORHYTHM" ;Z$ 


265 FOR N = TO 200 








640 IF Z$ - "YES" SOTO 650 


270 SET(Xl.Yl) 








642 PRINT " I HOPE YOUR BIORHYTHMS WERE GOOD TODAY ... :CC"-BYE . " 


280 RESET(Xl.Yl) 








645 END 


285 NEXT N 








65C CLS : GQTC 2 


287 INPUT "DC YOU WISH TO SEE THE EMOTIONAL 


:-■■:?. 


rODAY" 


,z$ 




288 IF Z$ = "YES" THEN 300 
290 END 








Program Listing 1 



t^ Reader Service — see page 147 
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best for competitive sports. 

The minus period (left side of 
the curve) also lasts 1 1 V2 days 
and is a period of reduced ener- 
gy. One tires more easily, is 
more liable to infectious dis- 
eases; medicines seem to work 
well, according to authorities. 
This is a period of rejuvenation 
where our body seems to be re- 
charging; a good period for rest 
and relaxation. 

The emotional cycle affects 
our nervous systems. The plus 
period lasts 14 days and is a 



period of cheerfulness, creative 
ability and moral energy. This is 
a period where we are full of 
energy, good for contests, 
public performance, conducting 
jobs where teamwork is re- 
quired. 

The minus period also lasting 
14 days is a period where we 
lack ambition, tend to be moody 
and should be careful in our per- 
sonal relation with others. 

The intellectual cycle affects 
our understanding, adaptability, 
logic, wit, judgement and con- 



EMUT IONMI 



IN1H l I '" TUHL 



Graphics Program 1 




Photo 1: Here, note that the marker is on the line: a critical day. 



centration. The plus period, last- 
ing I6V2 days, is the best time 
for study, planning, examina- 
tions and decisions. 

The minus period, also lasting 
I6V2 days, is a period in which 
we are apt to be lacking in good 
judgement. It is a good time for 
gathering data or for jobs that 
require repetition. 

Critical days are those during 
which a cycle crosses the cen- 
terline (vertical in the program) 
in an upswing (to the right) or a 
downswing (to the left). The term 
critical is relative. It is a period 
of change where our system is 
in a state of flux. 

Statistical research for over 
30 years seems to disclose that 
during these critical days, espe- 
cially the physical and emotion- 
al ones, we are more accident 
prone, lacking in coordination, 
judgement and alertness. Dur- 



ing an emotionally critical day. 
one is apt to make a slip of the 
tongue, irresponsible utter- 
ances, quarrel or have disputes. 
An intellectually critical day 
might cause failure of memory 
or mistakes. Critical days occur 
on our computer program where 
the blinking signal is on the ver- 
tical centerline of the curve or 
very close to it. 

The Program 

Whether or not you believe in 
biorhythms, you can still have a 
lot of fun running this program. 
Lines 2 through 11 are standard 
print statements and self ex- 
planatory. In lines 15 and 80 
dates are input. It is important 
that they be entered correct- 
ly—for instance May 8, 1979 
would be entered 5,8,1979. The 
full year must be written, not 
merely 79. and commas must be 
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Photos 2 and 3: The rectangle, which is the marker, flashes on the 
screen and shows the location of that day's biorhythm — emotional 
(Photo 2). intellectual (Photo 3). 



used for the Level II BASIC on 
the TRS-80. 

Statements 20 through 70 are 
a calendar routine to find the 
number of days to day of birth. 
Lines 20, 50 and 60 take care of 
the months of January and Feb- 
ruary which are considered the 
13th and 14th months of the pre- 
vious year in the formula. 

Statements 90 thru 140 also 
make up a calendar routine for 
finding the number of days to 
the present date as entered. 
Likewise lines 90, 120 and 130 
take care of January and 
February. 

Line 150 calculates the 
number of days from birthdate 



to today's date as entered. 
Statement 160 calculates 
today's position in the physical 
cycle of 23 days. This is a frac- 
tion of the complete cycle of 23 
days. A subroutine could be 
used for steps 20 to 60 and 90 to 
130, however I did not feel that it 
was worth the bother. 

Statements 180 through 200 
draw the sine curve. For ease in 
plotting, this curve is drawn on 
its side. In line 180 the curve is 
initiated from zero to 2n, which 
is one complete sine wave since 
2n radians equals 360 degrees. A 
step of .48 is used to put the 
whole curve on the screen at 
one time. If a printer is available 
the step can be varied, giving 



the curve a slightly different 
form. 

Lines 210 through 240 draw 
the zero line of the curve; this 
utilizes the TRS-80's graphic 
ability. 

Lines 250, 260, 170 and 280 
plot today's physical location 
on the curve, while lines 265 and 
285 establish a timer loop. This 
timer loop makes the marker 
blink. 

Line 280 can be omitted fixing 
the marker on the screen for the 
length of the timer loop. 

In line 190 one is added to the 
sine to make it positive. It is also 
multiplied by 20 in order to print 
the curve more clearly on the 
screen. (I found these the best 
values for a nice looking sine 
wave.) 

In statements 250, 390 and 
590 the X value (horizontal) of 
the respective biorhythm is cal- 
culated. Statements 260, 400 
and 600 give the Y value (verti- 
cal). 



The constants .273182, .2244 
and .1904 represent the values 
of 2n divided by 23, 28 and 33, 
the biorhythm periods of the 
physical, emotional and intel- 
lectual cycles. 

The position of the marker for 
subsequent dates can be esti- 
mated or plotted day by day by 
inputting the appropriate dates. 
For those who do not have 
graphics capability on their 
computer or anyone wishing to 
substitute a numerical value for 
the graph there is an alternate 
program. It is much simpler. 
Steps 2 through 11 are omitted, 
substituting any printed mes- 
sages that the programmer 
wishes. Lines 15 through 150 are 
retained as shown in the main 
program listing. Lines 160 on- 
wards could be changed as in 
Example 1. 

The same sort of thing can be 
done for the emotional and in- 
tellectual cycles changing the 
cycle interval in statement 160 
appropriately to 28 or 33. ■ 



160 


P ■ DT/23 • INT(DT/23) 


170 


BP = SIN(P . 2 • 3.14159265) 


then something like this could be added — 


175 


PRINT 


180 


PRINT 


190 


PRINT " ON A SCALE OF MINUS ONE TO PLUS ONE' 


200 


PRINT - THE NUMERICAL VALUE OF YOUR PHYSICAL BIORHYTHM IS "; BP 


210 


PRINT 


220 


IF BP PRINT "YOUR PHYSICAL BIORHYTHM IS LOW TODAY'' 


230 


IF BP PRINT YOUR PHYSICAL BIORHYTHM IS HIGH TODAY" 


240 


END 




Example 1 



Subscribe to 

SO 



microcomputing 



out the 
postage paid 
reply card 
on page 147 



DATA-BASE 
MANAGEMENT 



» INITIALIZATION: of any data base by no of 
records, no. of fields, name of fields, no of 
characters per field. 

» SELECTIVE LISTING: on any field 

» MENU DRIVEN: for easy operation, addition, 
lookup, change, delete, list 

» HASHING: for fast operation on large files. 

» FREE! APPLICATION: mailing list generator 
with multi-key selective listing 
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HARDWARE 



Add this low cost interface and you'll be able to turn 

on any memory location you want for control or monitor use. 



I/O Ports Plus 



Brian A. Harron 
67-3691 Albion Rd. 
Ottawa Ontario 
Canada K1T1P2 



By adding the low-cost inter- 
face described in this arti- 
cle, you will be able to "PEEK" 
and "POKE" your way around 
in the real world outside your 
TRS-80 cabinet. 

To begin, let's examine Level 
II BASIC'S PEEK and POKE 
commands. The POKE X,Y com- 
mand will store the value Y into 
memory location X, where Y is a 
decimal number between and 
255 representing an 8-bit binary 
byte and X is the decimal value 
of any writable memory loca- 
tion. Conversely, the PEEK(X) 
command will return the value 
(0 to 255), which is read from 
memory location X(decimal). 

This all seems useful, but 
what shall I PEEK at and where 
will I POKE? Well, let us add 
some input/output ports in 
memory address space, then 



we will be able to send and 
receive bytes of data via these 
new ports, or registers. 

The Interface 

Fig. 1. shows the connec- 
tions necessary to add an Intel 
8255 programmable peripheral 
interface IC to the TRS-80 bus. 
On the right side are our 24 in- 
put/output lines, each capable 
of sourcing 1 mA of current at 
1.5 volts (TTL compatible) and 
on the left side are the TRS-80 
bus connections and pin func- 
tion names. 

The 7404 hex inverter and the 
7430 8-input NAND gate are re- 
quired to properly decode the 
memory addresses where our 
I/O registers will reside. These 
address decoders will allow the 
8255 to be selected (via CS) only 
when data is read or written at 
addresses 12288-12291 (3000- 
3003 hex). These locations were 
chosen because they were in 
an unused area of memory just 
above the last Level II ROM and 
well below the keyboard scan 
RAM area. It also seemed very 
improbable that Radio Shack 
peripherals would ever use 



10 POKE 12291.153 ;REM A-IN B-OUT C-IN CONTROL WORD 

20 I = PEEK(12288) ;REM SET I = VALUE AT PORT A 

30 J = PEEK(12290) ;REM SET J = VALUE AT PORT C 

40 IF I =J THEN POKE 12289,240 ;REM 240= 11110000 BINARY 

50 GOTO 10 

Sample BASIC program to demonstrate the 8255 interface. 



these locations. 

It should be noted at this 
time that with Level II BASIC in- 
stalled in your TRS-80, the inter- 
nal 5-volt supply is not avail- 
able to the user, so an external 
5-volt source capable of pro- 
viding at least 500 mA of cur- 
rent will have to be made 
available. All other required 
lines are available at the 40-pin 
edge connector located inside 
the rear access door of the 
CPU/keyboard housing. 

The 8255 has three modes of 
operation that may be selected 
under program control: mode 



0— basic input/output, mode 
1— strobed input/output with 
interrrupt support. For our in- 
terface we will confine our 
thoughts to mode only. Fur- 
ther details concerning the 
8255 PPI can be found in the 
manufacturers' data hand- 
books. 

Port A and B are 8-bit ports 
and port C is split into two 4-bit 
ports. Port C has the additional 
feature of offering bit set/reset 
capability. All outputs are 
latched, while the inputs are 
not. The port function con- 
figuration depends upon which 




GN0 
GN0 



Fig. 1. Schematic of 24 I/O line interface. 
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Scanned by Ira Goldklang - www.trs-80.com 



ontrol 


Port A 


PortC 


PortB 


PortC 


Word 
icimal 


(b0-b7) 


Upper 
(b4-b7) 


(b0-b7) 


Lower 

(b0-b3) 


128 


OUT 


OUT 


OUT 


OUT 


129 


OUT 


OUT 


OUT 


IN 


130 


OUT 


OUT 


IN 


OUT 


131 


OUT 


OUT 


IN 


IN 


136 


OUT 


IN 


OUT 


OUT 


137 


OUT 


IN 


OUT 


IN 


138 


OUT 


IN 


IN 


OUT 


139 


OUT 


IN 


IN 


IN 


144 


IN 


OUT 


OUT 


OUT 


145 


IN 


OUT 


OUT 


IN 


146 


IN 


OUT 


IN 


OUT 


147 


IN 


OUT 


IN 


IN 


152 


IN 


IN 


OUT 


OUT 


153 


IN 


IN 


OUT 


IN 


154 


IN 


IN 


IN 


OUT 


155 


IN 


IN 


IN 


IN 



Table 1. Input/output mode control word chart. 



control word is POKEd into ad- 
dress 12291 (3003 hex). Sixteen 
different combinations of input 
and/or output are listed in Table 
1. 

For example let's POKE 
12291,137. Port A (address 
12288) is an 8-bit output port, 
port B (address 12289) is 
another 8-bit output port and 



port C (address 12290) is an 
8-bit input port. 

If port C were configured to 
be an output port (i.e., POKE 
12291,144), you could turn on or 
turn off any of the individual 
bits of port C by POKE 12290.Z, 
where Z is a word from Table 2 
defining which bit is to be acted 
upon. This becomes handy for 



controlling custom peripherals 
that require strobing or mode- 
setting bits of data. For exam- 
ple, consider the challenge of 
controlling eight railroad model 
switches or turning house and 
yard lights on and off. 

Let's try a BASIC program ex- 
ample where we will look at 
ports A and C, and if they are 
equal we will turn on bits 4, 5, 6, 



7 or port B. The sample program 
will keep looping and show a 
binary 11110000 on port B 
whenever ports A and C are 
equal. 

One final warning: If after 
adding this interface you still 
cannot think of anything to 
control and/or monitor, then 
your TRS-80 may suffer from 
"terminal" boredom! ■ 



Control Word 


Port C Bit 


(Decimal) 


Set or 


3eset 





bO RESET 




1 




bOSET 


2 


b1 RESET 




3 




b1 SET 


4 


b2 RESET 




5 




b2SET 


6 


b3 RESET 




7 




b3SET 


8 


b4 RESET 




9 




b4SET 


10 


b5 RESET 




11 




b5SET 


12 


b6 RESET 




13 




D6SET 


14 


b7 RESET 




15 




b7SET 



Table 2. Port C bit set/reset control word chart. 



GIN! 

YOUR TRS-80 CAN BE 
A TOUCH OPPONENT 



GIN RUMMY 20 plays a strong game, good 
enough to challenge an expert player 
Plays a full regulation game keeps score to 
game level, allows rearrangement of 
player's hand, and changes strategy to 
counter its opponent's play Hoursof good 
card playing a fascinating program, one 
you'll enjoy playing against and trying to 
beat 

MCR-1 $1495 

CHECKBOOK PLUS solves the problem of 
monthly bank statement reconciliation 
No cumbersome tape record keeping Just 
do your checkbook once a month and let 
Checkbook Plus handle all the details and 
find the errors 
MCB-1 $9 95 

CALCULATOR PLUS is an on-screen or print 
mg calculator with chain and mixed calcu- 
lations, memories for answer storage or 
calculations with constants item count 
and on screen or printed review of long 
add-and subtract operations Optional 
dollar format 
MPC-1 $9 95 

CHECKBOOK PLUS and CALCULATOR PLUS 

both on one cassette 

MC-2 $1495 

At your dealer or direct from ^90 

MANHATTAN SOFTWARE, Inc. 

P.O. Box 5200 Grand Central Station 

New York city, New York 10017 



J2 16K 9 
memory! 
expansion 

$87.20 !! 

Now you can have top quality without 
paying top dollar . . . and expand mem- 
ory In Radio Shack 80, Apple, and Exldy 
Sorcerer computers. 250 ns, low power 
chips are compatible with 4 mhz 
processors; easy-to-follow instructions, 
plus dip shunts, make Radio Shack -80 
memory expansion a snap — even for 
those with no previous hardware 
experience, compare our features and 
price with the competition; it just might 
tell you why this is one of our all time- 
best selling products. 



S: Allow 5«t for snipping lexcess refunded) 
VIS** Mastercnarge* orders, can our 24 nour order 
desk at (41 Si SC3-OCM COO 0« witn street address for 
UPS cai res add tax Prices good tnrougn cover montn 
of magazine 



(ompuPro 

BGK 2355, OAKLAND AIRPORT. CA 946U 



from 




ELECTRONICS 




(415)562-0636 



Now, Scott VET/I, an exciting new 
product of Scott Instruments, permits 
you to talk to your TRS-80, allowing 
voice control of basic programs or 
games. The Scott VET/I offers: 

• User initialized vocabulary of up 
to 40 words 

• Fast recognition 

• High accuracy 

• Demonstrated performance 
comparable to systems costing 
S 10,000 or more at hobbyist 
prices. 

• Multiple user Capability with no 
increase in storage requirements 

• Easy to train and use (user pro- 
grams can be written in Basic) 

• Requires TRS-80 (c) Model I with 
expansion interface. 1 6 K of addi- 
tional memory and dual disk drives/ 
cassette (c) Trademark of Tandy 
Corporation 

For more information call 
(817) 387-1054 or write 

instruments ^ 91 

v — / 815 North Elm, Denton, Tx 76201 
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UTILITY 



A Level I program to 

help you document your programs. 



Screen Editor 



William L. Cotsher 

4328 Nutmeg Lane, Apt. 1 1 1 

Lisle IL 60532 



What, you might ask, is a 
screen editor and why 
should I want one for my 
TRS-80? Well, first I'll tell you 
why you should want one so 
you'll be motivated to read the 



rest of this article and get the 
program running on your 
system. (And by then you'll 
know what one is.) 

There is one absolutely hor- 
rendous problem with pro- 
gramming small computers in 
BASIC (or in any other non- 
compiled language, for that 
matter). Even with a small pro- 
gram, once you put in all the 
REMarks and start in on the user 
instructions, you begin to find 



1. Load the screen editor tape with CLOAD Since this is a machine-language tape, 
the asterisk won't blink very much 

2 When the monitor screen clears, you're ready to enter a screen of information 
There are four special keys used to move the cursor around the screen: 
UP— the up arrow — —(hold down the shift key) moves the cursor up one line 
DOWN — the down arrow —!— (hold down the shift key) moves the cursor down one 
line 

RIGHT— the "right arrow' — |— (hold down the shift key) moves the cursor right one 
space 

LEFT— the 'left'" or "back arrow "— | —(hold down the shift key) moves the cursor back 
one space. 

3. When the screen Is )ust the way you want it. ready your tape recorder and hit the 
'&" key If this is the last screen of data, hit the "L" key. If there are more screens to 
enter, hit the "M" key. When the screen clears again you're ready to edit 

4. When you have recorded the last screen of data, press the RESET button on the 
back of the TRS-flO Now CLOAD the BASIC program you wrote the instruction screens 
for and make sure it loaded correctly Then CSAVE it onto the end of the instruction 
screen tape. 

5 To use your composite tape, load it into your recorder, press play, type CLOAD A 
screen full of information will be displayed as fast as it can be loaded from tape. When 
you want to continue to the next screen, hit enter and it will be loaded. After you hit 
ENTER on the last screen, the READY message will appear and you can then type 
CLOAD afjain to load the BASIC program 



Screen editor user's guide. 



that space is limited. In fact, I'm 
sure you've seen programs that 
have no built-in instructions (or 
even REMarks) for this very 
reason. This problem is so com- 
pletely universal that most of us 
don't even think of it as a prob- 
lem. 

The obvious solution to the 
problem of providing good user 
instructions in a limited amount 
of space is to segregate them 
from the main program in a 
module of their own. As soon as 
you do that, however, you begin 
to find that writing instructions 
that are going to be displayed 
on a video screen can be a real 
pain in BASIC. 

The first thing you realize is 
that typing P." nine zillion times 
can be boring. Then, when you 
RUN the program to take a look 
at the instructions, they zip by 
too fast to see. So you have to 
go back and stick in either an IN- 
PUT statement every 15 lines (on 
a TRS-80) or some sort of timing 
loop to slow things down. Final- 
ly, if your program requires a lot 
of instructional material (as is 
the case with some of the so- 
phisticated simulation games), 
you can still run out of memory 
and have to add one or more ad- 



ditional instruction modules. 

Nondestructive Cursor 

The solution to all this 
miserable fooling around with 
PRINTS and two or three extra 
programs is (you guessed it) a 
screen editor. A screen editor is 
actually a simple sort of text 
editor. Since all we're concerned 
with is one screen full of infor- 
mation, the editor doesn't have 
to be smart. All that's needed is 
a nondestructive cursor to get 
the information where we want 
it and some mechanism for sav- 
ing the information for future 
use. Because the requirements 
are simple, a screen editor is 
simple to use— no messing 
around with PRINTS and wait 
loops. 

If you think about it for a few 
minutes, you will find that the 
nondestructive cursor is the ma- 
jor part of writing a screen 
editor. On a TRS-80 (or any other 
system where the cursor is an 
automatic part of keyboard in- 
put), there is an additional prob- 
lem. The automatic cursor fouls 
up the nondestructive goal. It 
has to go. 

The way to get rid of an 
unwanted cursor is simple: Just 
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delude the routine that handles 
it. All we have to do is see to it 
that the offending routine thinks 
the video display memory is 
someplace it isn't. . . preferably 
out of the way where the cursor, 
trailing its cloud of characters, 
can't do any harm to our pro- 
gram or our neatly edited 
display. This turns out to be 
quite simple on the TRS-80. 
There is a location in RAM 
where the TRS-80's built-in 
routines store the current loca- 
tion of that nasty cursor. That 
location is at the two bytes 
beginning at 4068<«. As is usual- 
ly the case with an address, it is 
stored backward, high-order 
byte second. 

The only safe place to make 
the cursor think the video mem- 
ory is turns out to be the ROM 
area. Anyplace else might affect 
the program. In ROM though, 
the cursor can gaily write 
characters all day and not do 
the slightest amount of damage. 
To make sure it stays "down on 
the ROM" all we have to do is 
stick a zero at location 4069". If 
we do that every time we input a 
character from the keyboard 
we'll always be safe. There are 
probably more elegant ways to 
pull this off, but it only takes two 
lines of code (starting at 441 1« 
in the program listing) and 
doesn't materially affect the 
speed of the program. 

Now that we have the built-in 
cursor permanently out of the 
way, we need to take a look at 
how to make our cursor nonde- 
structive. That means that when 
we back it up, for example, the 
cursor should just slide over the 
characters already typed. Of 
course, at any given location, 
the cursor character itself is 
what's on the screen. The cursor 
character we're using is the 

underscore When we move 

the cursor to another location, 
the character that was there 
before the cursor reappears. 

This is easy to implement. 
Every time a cursor command is 
input from the keyboard, we im- 
mediately put the old character 
back where the cursor was. 
Then we generate a new loca- 
tion for the cursor (depending 
on the command entered), save 
the character at that location 
and then write in the cursor. The 



four lines that make up the 
"save" part of this routine begin 
at location 4416k in the pro- 
gram. 

Cursor Commands 

Cursor commands are special 
characters that are used to tell 
the program what direction to 
move the cursor. A quick glance 
at the TRS-80 keyboard reveals 
that there are four arrow keys. 
Since each arrow points in one 
of the four directions (right, left, 
up and down), we want to move 
the cursor so we don't have to 
use up any of the other char- 
acters to get our work done. 



While I was working on this 
program, it occurred to me that 
some people might want to use 
the arrows in their display. To 
make this possible, I decided to 
use the shifted arrows for the 
cursor commands. This also has 
the advantage of keeping the 
cursor from flying all over the 
screen if you accidentally hit 
one of the control keys. 

In addition to moving the cur- 
sor around, we also need some 
way to tell the program that 
we've finished with the screen 
and to save it on tape. I decided 
to use the "at" symbol (@). (The 
reason for this is just that I've 



never used it for anything else 
and decided it was about time.) 
Because there are only five 
commands to be processed, we 
can use the brute-force method 
instead of using branch tables, 
etc. Our method consists of a 
series of compares and jumps. If 
a comparison is true, then we 
jump off to handle the com- 
mand. The 15 lines starting at 
location 441 D*i contain this 
series of jumps. Incidentally, if 
you don't like the characters I 
picked out for control purposes, 
just substitute your own 
choices in the compare (CP) 
statements. 











Program listing 












TRS-80 SCRESN 


EDITOR • 








AUTHOR - WILLIAM L. COLSHER • 








SYSTEM - TRS-80, 4K, LEVEL I • 








THIS 


SIMPLE SCRESN EDITOR WAS WRITTEN TO • 








SIMPLIFY DSVSLOPSMSNT OF 


INSTRUCTIONAL • 








MATERIAL TO ACCOMPANY BASIC LANGUAGE * 








PROCRAMS. 










THE FOLLOW IMG SEGMENT OF 


CODE CLEARS THE 








MONITOR SCRESN IN PREPARATION FOR EDITING 


4400 


21003C 


START 


LD HL.3C00H 


START OF VIDEO MEMORY 


4103 


11013C 






LD DE.3C01H 




1406 


010004 






LD BC.0400H 


BYTE COUNT 


4109 


3B20 






LD A.20H 


PUT A BLANK IN FIRST SPOT 


440B 


77 






LD (HL) ,A 


,, 


HOC 


EDBO 


• 




LDIR 


CLEAR THE SCRESN TO BLANKS 






• 


THE 


NEXT SECTION OF CODE 


PROCESSES THE INPUT. 






• 


IF A CONTROL CHARACTER IS INPJT, IT IS HANDED 






• 


OVER TO THE APPROPRIATE 


ROUTINE. ORDINARY 






• 


CHARACTERS ARE PLACED ON 


THE SCREEN AND THE 






• 


CURSOR LOCATION INCREMENTED BY ONE. 






• 
« 


CONTROL CHARACTERS 1 








• 


5B - 


UP ARROW - M0V3S CURSOR UP 






• 


5C - 


DOWN ARROW - MOVES CURSOR DOWN 






• 


5D - 


LEFT (OR BACK) ARROW - MOVES CURSOR LEFT ONE 






• 


58 - 


RIGHT ARROW - MOVES 


CURSOR RIGHTONS SPACE 






• 
• 


40 - 


THE • SYMBOL - GIV3S CONTROL TO SAVE ROUTINE. 


440E 


21003C 






LD HL,3C00H 


INITIAL CURSOR LOCATION 


1*11 


3B00 


EDIT 


IS A.OOH 


KILL RADIO SHACK CURSOR 


4413 


326940 






LD (4069H) , A 


• , 


4116 


te 






LD A,(HL) 
LD (4C00),A 


GET CURRENT CHARACTER 


1417 


32004C 






AND SAVE IT 


441A 


3B5T 






IS A.5FH 


PUT IN OUR CURSOR 


411C 


77 






IS (HL) ,A 


• • 


HID 


CD400B 


WAIT 


CALL KBDIN 


READ A KEYBOARD CHARACTER 


1+420 


CA1D44 






JP Z.WAIT 


. . 


4423 


R5B 






CP 5BH 


IF UP ARROW THEN 


4425 


CA4644 






JP Z,UP 


HOVE CURSOR UP 


4428 


FE5C 






CP 5CH 


IF DOWN ARROW THEN 


442A 


CA5144 






JP Z.DOWN 


MOVE CURSOR DOWN 


442D 


FS5D 






CP 5DH 


IF LEFT ARROW THEN 


442F 


CA5C44 






JP Z.LEFT 


MOVE CURSOR LEFT 


4432 


FB5* 






CP 5E 


IF RIGHT ARROW THEN 


4434 


CA6344 






JP Z.RIGHT 


MOVE THE CURSOR RIGHT 


4437 


PC40 






CP 40H 


IF • THEN 


4439 


CA6A14 






JP Z.SAVE 


SAVE THE SCREEN ON TAPS 


443C 


77 






IS ( HL) .A 


OTHERWISE PUT IT ON THE SCRESN 


U43D 


23 






INC HL 


MOVE OUR CURSOR OVER ONE 


443E 


C31144 






JP EDIT 


AND CONTINUE EDITING 
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4441 


3A004C 


i)i) i|i| 


77 


4445 


C9 



4446 
4449 
444C 
44*B 


CD4144 
114000 
ED 52 
C3H44 


4451 
4454 
4457 
4459 


CD4144 
114000 
SD5A 
C 31 144 


445C 
445F 
4460 


CD4144 

2B 

C3H44 


4463 
4466 
446? 


CD4144 
23 

C31144 



446A 


CD8B44 


446D 


000000 


4470 


000000 


4473 


000000 


4476 


000000 


447A 


00 


447B 


CDE90F 


447C 


21003C 


4481 


110042 


4464 


CD4B0r 


4487 


C30044 



448B 


CD400B 


448E 


FE4C 


4490 


CAAD44 


4493 


FB4D 


4495 


CA9B44 


U49B 


011900 


449B 


210040 


44A1 


22FE41 


44A4 


21BC44 


44A7 


110040 


44AA 


ED BO 


44AC 


C9 


44AD 


21C3O0 


44B0 


22D244 


44B3 


210000 


44B6 


22D444 


44B9 


C39B44 



44BC 


CD400B 


44BF 


feod 


44C1 


C20O40 


44C4 


21003c 


44C7 


11013c 


44CA 


01FF03 


44CD 


3E20 


44Cf 


77 


44D0 


BDBO 


44D2 


CDF40E 



THIS IS THE "RESTORE" ROUTINE. IT IS CALLED 
EVBRYTIHE A CURSOR COMMAND IS PROCESSED TO 
RESTORE THE CHARACTER THAT HAS 'UNDER' THE CURSOR 
BEFORE IT MOVED. 



RESTORE 



LD 


A.(uCOOH) 


GET THE CHARACTER 


LD 


(HL),A 


PUT IT BACK 


RET 




RETURN TO CALLER 



THE FOLLOWING CODE HANDLES ALL MOVEMENT OF TH3 CURSOR 
INITIATED BY A CONTROL CHARACTER. 



UP 



DOWN 



LEFT 



RIGHT 



CALL RESTORE 
LD DE.0040H 
SUB HL.DS 
JP EDIT 

CALL RESTORE 
LD D8.0040H 
ADD HL.DE 
JP EDIT 

CALL RESTORE 
DEC HL 

JP EDIT 

CALL RESTORE 
INC HL 
JP EDIT 



PUT BACK THE OLD CHARACTER 

64 

(HL) - 64 



PUT BACH THE OLD CHARACTER 

64 

(HL) + 64 



PUT BACK THE OLD CHARACTER 
(HL) - 1 



PUT BACK THE OLD CHARACTER 
(HL) ♦ 1 



THE FOLLOWING CODE HANDLES THE SAVING OF COMPLETED 
SCREENS ON TAPS. NOT THE SLIGHTLY DIFFERENT 
PROCEDURE FOR THE LAST SCREEN SAVED. 



SAVE 



CALL READER 

NOP, NOP, NOP 

NOP, NOP, NOP 

NOP .NOP, NOP 

NOP .NOP, NOP 

NOP 

CALL CTON 

LD HL.3C00H 

LD DE,4200H 

CALLCSAVBO 

JP START 



SET UP PROGRAM TO GO WITH TAPE 
NO OP'S IN PLACE OF TEST CODE 



TURN ON TAPE RECORDER 

POINT TO START OF SAVED AREA 

POINT TO END OF SAVED AREA 

SAVE IT 

AND BEGIN AGAIN 



THE FOLLOWING CODE HANDLES THE GENERATION OF THE 
SMALL PROGRAM WHICH WILL GO ON TAPE WITH THE 
SCREENS. ALL SCREENS BUT THE LAST HAVE A ROUTINE 
WHICH WAITS FOR AN 'ENTER'. THEY THEN CLEAR THE 
MONITOR AND READ IN THE NEXT SCREEN. THE LAST SCREEN 
WAITS FOR AN 'ENTER' AND THEN CLEARS THE MONITOR 
FINALLY JUMPING TO LOCATION OOOOH TO INITIALIZE BASIC 

READER CALL KBDIN READ A CHARACTER FROM THE KEYBOARD 

IS IT AN L? 
YES, DO SPECIAL STUFF 
IS IT AN MT 

YES, SET UP STANDARD PROGRAM 

MORy LD EC.0019H # BYTES IN PROGRAM 

START OF PROGRAM 
TELL TRS-80 ABOUT IT 
POINT TO COPY OF PROGRAM 
DESTINATION OF PROGRAM. 
MOVE IT IN 
GO BACK AND SAVE THE STUFF 

LAST ID KL.003C SET UP A JP TO OOOOH 

STORE FIRST 2 BYTES OF JP 
GET 2 MORE BYTES OF O'S 
STORE SECOND PAIR OF BYTES 
AND GO DO THE REST. 

THIS SECTION OF CODE IS NOT EXECUTED IN THIS PROGRAM. 
IT IS THE PROGRAM THAT IS STORED WITH THE SCREENS TO 
CHAIN THEM TOGETHER. 



CALL KBDIN 


CP 


4CH 


JP 


Z.LAST 


CP 


4DH 


JP 


Z,MORE 


LD 


BC.0019H 


LD 


HL.4000H 


LD 


(41FEH) ,HL 


LD 


HL,44BCH 


LD 


DE,4000H 


LSI! 




RET 




LD 


HL,003C 


LD 


44D2H,HL 


LD 


HL, OOOOH 


LD 


44D4H,HL 


JP 


MORE 



CALL KBDIN 


READ KEYBOARD 


CP ODH 


ENTER? 


JP MZ,4000H 


NOT YET 


LD HL.3C00H 


SET UP TO CLEAR SCREEN 


LD DE.3C01H 


• . 


LD BC,03FFH 


. . 


TO A.20H 


GET A BUNK 


LD (HL),A 


STICK IT IX 


LDIR 


CLEAR THE SCREEN TO BLANKS 


CALL CLOADO 


LOAD NEXT SC»2EN 



Actually, processing the cur- 
sor commands is simple too. 
The only special thing we have 
to do is make sure that the old 
character is pulled out of 
storage and put back where it 
belongs when the cursor is 
moved. A little routine called 
RESTORE (only three lines long 
beginning at 4441 u) handles 
this. After that's done, we can 
generate a new cursor address 
by adding or subtracting 1 or 64, 
depending on the direction we 
want to move. 

Handling the "save" com- 
mand is trickier. In fact, about a 
third of this program is used to 
do it. The reason for this is sim- 
ple. We want to make our in- 
struction screens easy to use. 
The most obvious way to 
simplify things is to eliminate 
any need for the user to do 
anything but read the informa- 
tion and tell the program when 
he's done. So, each screen full 
of information has to have a lit- 
tle program along with it that 
waits for the user to hit ENTER. 
When he does, the routine 
clears the screen and starts 
loading the next instruction 
screen. 

Because BASIC programs 
load differently, we have to do 
something different with the 
last screen of information. All 
this involves is changing that lit- 
tle program so that when the 
user hits ENTER instead of load- 
ing another instruction screen, 
the computer displays the 
READY message. 

Applications 

The screen editor can be used 
for other things besides making 
up instruction screens for 
BASIC programs. With another 
program to help it, you can use it 
as a sign generator. In a 4K 
TRS-80, you can store three dif- 
ferent pages of information. The 
additional program consists of 
a time delay routine and a cou- 
ple of statements to move in a 
new display. This can be used 
for an automated bulletin board 
at club meetings, or a cable TV 
station could use it for its local 
news and weather channel. 
Most places tie up a perfectly 
good wall and camera on this 
right now. You can probably 
think of other uses.B 
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UTILITY 



Add your own error messages to Level II. 



Extra Errors 



Charles Moses 

New England Digital Corp. 

PO Box 305 

Norwich VT 05055 

One feature of TRSDOS is 
that Disk BASIC describes 
non-disk errors rather than give 
a two-character abbreviation as 
does Level II. Though Level II of- 
fers a number of error com- 
mands (ERR, ERL, etc.), making 
it easy to write an error-trapping 
routine, I wanted one that would 
do more. 

A closer inspection of the 
operating system revealed that 
for syntax errors the Editor is 
automatically invoked. Looking 
over the list of Error Codes in the 
Level II manual, I decided there 
were other errors which might 
be corrected quickly by using 
the Editor. Consequently, I 
needed three things from my 
routine: a more detailed expla- 
nation of errors; flexibility to de- 
cide which errors I wanted to 
handle as special cases and 
those that Level II could handle 
in the normal way; a way of In- 
voking the Editor for immediate 
repairs like syntax errors. 

PRINT Statements 

The first is satisfied by using 



PRINT statements containing a 
one line description of the error. 
The second can be satisfied in a 
variety of ways, such as in Ex- 
ample 1. 

The IF THEN statement traps 
those errors that you want the 
operating system to handle. You 
could also send all those errors 
to the same line number in the 



10 ON ERROR GOTO 1000 



• 1000 IF ERR = 10OR ERR = 12 OR 
ERR = 14 THEN ON ERROR GOTO 


• • 1010 ON ERR/2 + 1 GOTO 1020, 
1030, 1040 1060 1060 

1020 PRINT 'NEXT WITHOUT FOR 
IN LINE "; ERL 



2000 END 

•ERR = (Error Code- 1)-2or ERR/ 
2 + 1= Error Code ON ERROR 
GOTO is the way you get out ot 
the error-trapping routine and let 
Level II handle the error 
" 'Level II will pass over the com- 
mas as though they were line 
numbers. II ERR/2 + 1 = 's a value 
for which there is no line number 
you will get a "?UL ERROR IN 
1010*' error! 



Example 1 



Example 2 


"1020 PRINTPRINT SYNTAX 
ERROR IN". ERL: LIST 




1030 PRINTPRINT RETURN 




WITHOUT GOSUB . ERL. EDIT 




1040 PRINT PRINT OUT OF 


2 REM EXAMPLE OF ERROR 
HANDLING ROUTINE 


MEMORY IN": ERL EDIT 

• • • 1200 ON ERROR GOTO O 


4 REM SYNTAX ERRORS WILL 


2000 END 


LIST THE LINE AND GO TO EDIT 


'Line 1040 is m the seventh posi- 


6 REM ALL OTHERS REQUIRE 


tion so it is the seventh error code 


THE USE OF THE EDIT COM- 


Give different line numbers for the 


MAND V 


errors you want to handle, give 


8 REM TO LIST THE LINE AS IN 


1200 for all the others 


THE NORMAL EDITOR (ERL = ER- 
ROR LINR NUMBER 
100 ON ERROR GOTO 1000 


** List accomplishes what the 
Editor would normally do but with 
the added twist that the line is 


110CLSDEFINTI 
120 FOR I = 1 TO 10 


already listed for you Using EDIT 
for syntax errors will work except 


130 PRINT I; 


that the command is stacked 


140 NEXT I 


twice and after the program runs 


150 END 


ok, the Editor will try to EDIT the 


•1000 ON ERR/2 + 1 GOTO 1010, 


line an error occurred on again. 


[ 1020. 1030, 1200, 1200, 1200. 1040 
(23 codes) 
1010 PRINTPRINT NEXT 


after the READY appears 

" " "The normal error and'or Editor 

will be invoked when this line is 


WITHOUT FOR IN'; ERL: EDIT. 


read, automatically 



ON ERR/2 + 1 GOTO statement, 
containing the single statement 
ON ERROR GOTO O. 

Number 3, the most difficult, 
was satisfied using another 
curious ability of Level II: A com- 
mand, like RUN or LIST can be 
executed from a BASIC state- 
ment like this: 

10 PRINT "HELLO" 
20 RUN 10 

For the third we will use 



"EDIT." (and "LIST.", explained 
later) which is supposed to edit 
the current line. But. when used 
in an error-trapping routine, its 
current line is that in which the 
error occurred! We can invoke 
the Editor by placing the com- 
mand EDIT in the program in- 
side the error routine, as shown 
in Example 2. 

If the program is run and there 
are no errors the following 
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SOFTWARE 
FOR THE TRS-80* 




NOW! 

A LIGHT PEN 

FOR THE TRS-80 

AND 

SOFTWARE 

THAT USES IT! 



QS LIGHT PEN. We have taken the excellent PliotoPoint light pen and packaged it with our 
own custom software. You get the light pen, which plugs into your tape recorder, and an 
instruction booklet that includes the software you need to interface a light pen to your own 
BASIC programs. Our software routines are in BASIC and a simple GOSUB puts the light 
pen in action . Two program examples are included. The "menu select" mode lets you set up 
selection squares anywhere you wish on the screen. The "screen location" mode searches for 
the pen position and returns the screen address to the calling program. One 9V battery 
required, not included. Light Pen - S19.9S 

SKETCH-80™ by Bob Christiansen. Use the QS light pen to draw figures on the TRS-80 
screen. Figures are drawn at three times normal si/e. Then save your sketch in memory and 
start another one. Your sketch can be displayed at normal size or at the enlarged size at 
which they were drawn. Combine two or more sketches on the same screen. Save your 
sketches to tape or disk. You can even ask the computer to print out the POKE values re- 
quired to produce your sketch. This system program figures out how much memory your 
TRS-80 has and allocates storage accordingly. Requires level II, 16K. On cassette - S14.95 

THE FOLLOWING PROGRAMS REQUIRE LEVEL II, I6K. AND CAN BE 
PL A YED WITH OR WITHOUT A LIGHT PEN. 

POKER PETE™ by Dave Gubser. Play five 
card draw poker one-on-one against an am 
mated PETE. Watch PETE shuffle and deal 
the cards. He will challenge you with bluffs, 
raises, calls and folds in this winner take all 
showdown And watch out - - PETE's gut a 
gun' Three levels of skill Written in BASIC. 
On cassette - S1 1.95 

LOWBALL POKER by Danny Shea. How low can you go 7 It's you against Micro Molly and 
the lowest hand wins. That's the rule in lowball poker. This version plays the popular 
Gardena, California rules. Don't take her for granted — Molly plays an excellent game. 
Written in BASIC. On cassette - $11.95 

RUMMY MASTER by Dave Gubser. Play rummy against the computer. Exceptional 
graphics display your hand, the discards, and the cards that have been melded. You see your 
opponent shuffle and deal out the cards. Tested in an arcade, this program was a big hit. 
Written in BASIC. On cassette - S1 1.95 

MATCH CARDS by Danny Shea, BANKSHOT by Bob Christiansen. Two programs on one 
cassette. MATCH CARDS is a concentration type game where you match numbers, letters, 
or graphic shapes. For 1 or 2 players. Automatic scoring rates your recall ability. Written in 
BASIC. BANKSHOT is a billiard-like game for those who think they know all the angles. 
Hit the ball into the pocket, but you must hit a wall first. Written in BASIC with machine 
language subroutines. Just CLOAD and RUN. For 1 or 2 players. On cassette - S9.95 

THE FOLLOWING PROGRAMS REQUIRE LEVEL II. J6K, AND DO NOT 
USE A LIGHT PEN. 

FASTGAMMON TW by Bob Christiansen. Our popular machine language backgammon game 
that started us in business. The computer plays against you and makes good moves instanta- 
neously. Option to replay dice rolls from the previous game. An eight-page instruction 
booklet is included. On cassette S19.95 

On diskette - S24.95 

DEBUG by Bob Pierce Debug machine language programs by stepping through one Z-80 in 
struction at a time. Relocatable. Several display options. Multiple break points. Modify 
memory and registers. On cassette S14.95 

Z-80 DISASSEMBLER by Vic Tolomei. Decode machine language programs, including 
TRS-80 ROM with this Z-80 Disassembler written in BASIC. Instruction mode prints out 
machine code and Zilog mnemonics in standard format. Or use the ASCII mode which con- 
verts machine language code to ASCII. On cassette S14.95 



•BBBBB 

EDBEE 




QUTiLrry software 

6660 Reseda Blvd Suite 103 Reseda CA 91335 ^ 188 
Telephone 24 hou's seven days a week (213) 344-6599 

HOW TO OROER: MasterCharge and Visa cardholders may telephone their orders and we 
will deduct SI from orders over $19 to compensate for phone charges. Or mail your order 
to the address above. California residents add 6% sales tax. Orders outside North America 
add S5 for registered airmail, pay in U.S. currency. 

""TRS 80" is a registered trademark of Tandy Corp. 



should appear: 

1 23456789 10 
READY 

If there is a syntax error, like 
making line 130 read; 130 RINT 
I;, this appears: 

SYNTAX ERROR IN 130 

130 RINT I; 

READY 

130 

You can then edit using all the 
normal commands and RUN the 
program again. If there was an 
error in line 140—140 NEXT W, 
you would see: 

NEXT WITHOUT FOR IN 140 

140 (Type an L') 

140 NEXT W 

140 (Use Editor normally) 

If two lines are added to the 
program: 115 DATA 1,2,3 and 
125 READ X. there would be a 
number four error code which 
sends the error to 1200 and out 
to the normal error messages 
and response. 

7 OD ERROR IN 125 

READY 

> 

Every possible error can be 
tested by using the ERROR 
command/statement. By listing 
a line in the program like 105 ER- 



ROR 1 (or 2, or 20 . . . ). your error 
trapping code can be tested 
directly, without having to 
create a specific error. 

Conclusion 

Using this routine has saved 
me thumbing through the Level 
II manual to find the error I've 
created and saved time by being 
able to go directly into the 
Editor. 

The idea of the routine was to 
trap certain errors which could 
be corrected by producing the 
error line, but obviously, some 
errors cannot be handled that 
way. For example, a UE Unprint- 
able Error or an L3 Disk Basic 
Only, must be corrected by the 
operating system. 

Also, a LIST ?-? works well for 
isolating a cluster of related 
lines, for instance a loop, as in 
the example program LIST 
120-140. Even without the long 
statements describing the er- 
rors a LIST ?-? could be used to 
look at a number of different 
sections of the program at once. 
The idea is flexibility. ■ 




TRS-80 OWNERS! 

We have a FREE program just for you. IDEA SEEDS, a new concept 
in software from CECDAT. Each month you can receive a FREE program 
for your TRS-80, ready for use and/or customization, for just a self 
addressed-stamped envelope. 

ACT AT ONCE... Send your self addressed-stamped envelope NOW 

before it slips your mind! It could be the best thina you have done 
for your TRS-80 Library. 

FREE IDEA SEEDS"! ONLY FROM CECDAT! ^62 

CECDAT, Inc. P.O. Box 8963, Moscow. Idaho 838i*3 
TRS-80 Is a registered trademark of TANDY CORP " 
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APPLICATION 



How to make sure you 
have the right people, in the right place— at the right time. 



Duty Roster 



Dick M. Straw 
891 Michigan 
Pasadena CA 91104 



If one of your tasks at the of- 
fice, in your church or in your 
club involves putting people in- 
to schedules on a fair, random 
basis, Duty Roster will help. 

Many organizations can use 
an effective but simple way of 
sharing the work load. Assign- 
ing church ushers and acolytes 
to their weekly duties is a good 
example. Here, the object is to 
try to use everyone about 
equally often and to spread 
them out as much as possible. 
In Toastmasters' Clubs and 
others, various tasks are taken 
by different members each 
week. Making up a month's 
schedule can be a problem. 

Maybe you want a method to 
distribute the necessary even- 



ing duties in your store as 
equitably as possible, and a 
fixed rotation is undesirable- 
after all, who wants to be stuck 
working Friday night every 
week? The Duty Roster pro- 
gram will do all of these tasks. 

Coding 

Written for the TRS-80 in 
Level II BASIC, this program 
uses about 8K of storage, but 
the total will really depend on 
how long a list of names is in- 
cluded in it. It will assign every 
individual on the list to any job 
available until the list is ex- 
hausted, or it can restrict as- 
signments to some jobs to per- 
sons known to be qualified to 
do them. For example, if the 
duties of the chairman of a 
meeting are rotated, but it is de- 
sired to limit the post to mem- 
bers with more experience, a 
second, coded option should 
be chosen. 

In the standard coded op- 
tion, individuals with higher 



codes can be assigned to low- 
er-level jobs, but higher-level 
tasks will not be given to per- 
sons whose codes are too low. 
If there are really separate cate- 
gories, so that some persons 
should be assigned only to one 
group of tasks and others to a 
different group of tasks, a sim- 
ple change in two program 
lines will accomplish it. 

The acolyte-and-usher prob- 
lem falls into the last basket, 
probably. But a little imagina- 
tion will point out some other 
occasions to use the program. 
For example, proper coding will 
allow random assignment of 
partners for the weekly bridge 
club meeting. Should you want 
to be sure your daily menu 
would include each of the ma- 
jor food groups, you could ro- 
tate the acceptable choices 
randomly to get a varied fare! 

As currently Implemented, 
four categories, coded 1 to 4, 
are allowed. Some improvement 
in efficiency results if fewer can 



be used in practice, but more 
can also be added. Naturally, as 
individuals gain experience, 
their code levels can be in- 
creased, and job-level codes can 
also be changed as appropriate. 

How the Program Works 

The program uses informa- 
tion stored in DATA statements 
at its end. Line 4990 carries 
three parameters: the number 
of jobs, the number of persons 
and the option code (zero if re- 
stricted assignments, nine if 
not). The data format is differ- 
ent for each. 

Lines 5000 and up carry the 
job names and their associated 
codes in pairs (for example, 
5000 DATA "CHAIRMAN".4, 
"HOST" ,3,). Higher-code tasks 
should be listed first for best ef- 
ficiency to avoid assigning all 
the high-code personnel to low- 
er-level jobs before they can be 
used in the higher ones. 

From line 51 00 onward are the 
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persons" names in the same for- 
mat. The parameters and the 
data must all agree with one an- 
other in order to make the pro- 
gram go. As you well know, of 
course, the DATA statements 
can be anywhere you like so 
long as they are in the right 
order. The codes are omitted 
for option "nine." 

After the preliminaries are 
out of the way and you tell the 
program to proceed, the data 
are read (lines 800-900) and 
checked (the subroutine begin- 
ning at line 4300). To begin with, 
there must be at least as many 



persons to assign as there are 
weekly tasks. That is not usual- 
ly a problem. This check will 
also trap you, in most cases, if 
you reverse the order of the first 
two parameters, although it will 
not give an appropriate diag- 
nostic. It then counts how 
many jobs there are at each lev- 
el (if coded) and how many per- 
sons on the list are qualified to 
fill each. This is reported out. If 
the number of qualified per- 
sons is too small for a single 
weekly roster, the program will 
stop at the job level where this 
is detected. 



Then the shuffling begins. 
The random list is constructed 
in array K such that each index 
number is used only once. This 
is done by the subroutine be- 
ginning at line 4100. This seg- 
ment also zeroes the counters 
and resets any negative job 
codes in the person-list. 

Assignments are taken care 
of in the main program. For un- 
restricted assignments, the 
simple routine begins at line 
1100. It reads the random K ar- 
ray and places the individual's 
index numbers into the assign- 
ment array, K2. When the list is 



exhausted before the end of the 
run, it calls the shuffling rou- 
tine and continues on. This 
sometimes causes the same 
person to be given two jobs on 
one day, but if the list of people 
is long enough compared to the 
job list, that should be rare. You 
can eyeball a switch or run it all 
over again. 

Restricted postings are made 
beginning at line 1200. It oper- 
ates basically the same way, 
but checks to make sure the 
person assigned has a high 
enough rating for each job. 
When an assignment is made. 



Duty Roster program. 



1 REM DUTY ROSTER PROGRAM iC> DICK STRAW. 1979 

so clear 3000 as 

60 ON ERROR GOTO 4506 

78 DEFINT H-M DEFSTR G, P 

108 PRINT CHR*<23> 

110 PRINT0324, "DOTV ROSTER' 

120 FORI-1TO500 K=l NEXTI 

138 CIS PRINT-THIS PROGRAM HILL ASSIGN JOBS TO INDIVIDUALS 0N" 

135 PRINT'A RANDOM OR STRATIFIED RANDOM BASIS " 

148 PRINT INPUT-DO VOU WANT A BRIEF PROGRflM DESCRIPTION". P9 

158 READ N. M. L8 

160 DIM G(N).L(N).PCH).L2(H>.K<H),K2<N.4».H<4> 

178 REM G=JOBS. L*J0B CODES. P-PERSONS. L2-PERSON CODES 

188 REM K-RANDOM LIST, K2-ASSIGNMENTS. ^COUNTERS 

208 F0RI-1TON L(J>«e 

218 F0RJ-1T04 K2<I.J>-0 

228 NEXT J. I 

238 FORI'lTOH L2<I>«8 K'I>*8 NEXTI 

388 IF ASC<P9)«89 GOSUB 488 

218 GOTO 788 

400 REM PROGRAM DESCRIPTION 

418 PRINT PRINT-THE PROGRAM PROVIDES DUTV ROSTERS FOR FOUR PERIODS (WEEKS). 

428 PRINT-BASED ON A RANDOMIZED LIST IF THERE ARE NOT ENOUGH PERSONS" 

438 PRINT-LEFT FOR THE NEXT ROSTER. THE LIST IS RE-SHUFFLED " 

435 INPUT" FOR MORE. PRESS ENTER". P9 

448 CLS PRINT-IN ONE OPTION. EVERV PERSON IS ELIGIBLE FOR ALL JOBS " 

458 PRINT-IN THE OTHER- JOBS AND PERSONS ARE CODED TO RESTRICT" 

468 PR I NT "ASSIGNMENT TO SOME JOBS TO MORE QUALIFIED PERSONS - 

478 PRINT-A PERSON CANNOT BE ASSIGNED A HIGHER-CODE JOB. BUT" 

488 PRINT-MAY BE GIVEN A LOWER-CODE JOB TWO SIMPLE MODIFICATIONS" 

498 PRINT-WILL ASSIGN PERSONS ONLY WITHIN THEIR CATEGORIES " 

508 PR I NT -ASSIGNED CODES ARE EASILY MODIFIED JOBS OR PERSONS" 

510 PMNT'LIMITED TO ONE ASSIGNMENT SHOULD BE OMITTED FROM LISTS " 

528 PRINT PRINT-PROGRAM PARAMETERS ARE IN DftTA LINE 4990 " 

538 PRINT- JOB NAMES AND CODES ARE IN DATA LINES STARTING AT 5808 ■ 

548 PRINT-PERSONS AND CODES ARE IN LINES 5100 AND UP " 

558 PRINT-SAMPLE DATA FOR TRIAL RUN ARE INaUDED FaLOU THE" 

560 PR I NT -EXAMPLES TO ENTER VOL* OWN DATA OMIT NUMERIC CODES" 

578 PRINT-FOR NO-RESTRICTION OPTION CODES 1 TO 4 ALLOWED " 

588 RETURN 

788 PRINTTAB<5>. INPUT"ARE VOU READY TO PROCEED <V/N;".P9 

718 IF ASC<P9>-89 GOTO 680 

728 CLS PRINT PRINT-ALL RIGHT. WHEN YOU HAVE ENTERED THE DATA, JUST" 

738 PRINT" 'RUN' THE PROGRAM AGAIN REMEMBER THAT VOU CAN CSAVE'" 

748 PRINT'THE PROGRAM WITH THE DATA TO USE AGAIN LATER " 

760 STOP 

880 CLS PRINT"READING DATA" 

S18 IF L8-8 GOTO 858 

828 FOR I«l TO N 

822 READ G(I> 

824 NEXT I 

338 FOR 1=1 TO M 

832 READ P<I> 

S34 NEXT I 

348 GOTO 898 

830 FOR 1*1 TO N 

352 READ G<I).L<I> 

354 NEXT I 

360 FOR 1-1 TO M 

662 READ Pa>.L2<I) 

864 NEXT I 

s?e gosub 4:8* 

988 GOSUB 4108 

918 PRINT-WORKING ON THE ASSIGNMENTS" 

1808 IF L0*0 GOTO 1208 

1898 REM UNRESTRICTED ASSIGNMENTS 

1180 FOR 1 9-1 TO 4 

1110 FOR J9»l TO N 

1120 K2<J9. I9>=K<H<8>> 

1138 H<0)«H<8)*1 IF H<0> .• M GOSUB 4100 

1148 NEXT J9 

1158 NEXT 19 

1168 GOTO 2038 

1198 REM RESTRICTED ASSIGNMENT; 

1200 FOR 19=1 TO 4 

1285 IF N :• M-H<0) THEN GOSUB 4108 



1218 
1220 

1230 
1240 
1245 
1250 
1260 
1270 
1272 
1274 
1280 
1290 
1380 



FOR J9-1 TO N 

L1«L'J9) 

Kl- K(H<L1>> 

IF L2<K1) >• LI GOTO 1290 

REM FOR 0NLV-IN-CATEGORV. CHANGE >= TO ■ IN L 

H<L1>*W'L1>*1 IF H<L1> > M GOTO 1220 

H<L1>»1 

FOR I = lTOM 

IF L2<I" -LI THEN LET L2<I>" -L2< I ) 

NEXT I 

GOTO 1238 

K2(J9. I9>«K1 

L2iKl>= -L2<K1) 



H<01*H<0>»1 



2000 
2818 
2820 
2050 
2060 
2878 
2100 
2110 
3808 
3018 
3020 
3038 
3040 
4000 
4188 
4118 
4120 
4138 
4148 
4150 
4160 
4178 
4188 
4190 
42O0 
4308 

4310 

4328 
4338 
4348 
4330 
4378 
4380 
4390 
4393 
4408 
4405 
4410 
4415 
4428 
4425 
4430 
4435 
4440 
4445 
4458 
4468 
4470 
4308 
4318 
4320 
4340 
4560 
4918 
4920 
4998 
4995 
5000 
5018 
5095 
5100 
3110 
5120 
3130 
5140 



FOR 19 = 1 TO 4 

aS PRINT-HERE ARE THE ASSIGNMENTS FOR WEEK". 19 
PRINT TAB«7).-J0B-.TAB<33),-PERS0N- 
FC* J9=l TO N 

PRINT G<J9> TABO0).P<K2<J9, 19)) 
NEXT J9 

INF1/T"WHEN READY PRESS ENTER" F'9 
NEXT 19 

CLS PRINTCHR*<23> 
PRINT9330. "HOPE IT WAS- HELPFUL" 
PR1NT0478. "THE END" 
FORI=1TO500 K"l NEXTI 

as 

END 

RANDOM PRINT"SHLIFFLING" 

FOR 1=1 TO M 

K5 = RNT" Mi 

FOR J=l TO I 

IF K(J)»K5 GOTO 4120 

NEXT J 
K<I>«K5 
NEXT I 



H<I)«1 NEXT I 
L2<I)«flBS<L2<I>> NEXT 1 



JOBS 



FOR I-8T04 
FOR I-1TOM 
RETURN 

REM CHECKING ROUTINE 
PR I NT "CHECKING DATA- 
PRINT "VOU HAVEVM "PERSONS FOR' 
IF N >> N GOTO 4370 

PRINT-WE CANNOT PROCEED UNLESS THERE IS AT LEAST ONE PERSON " 
PRINT-FOR EACH JOB SUGGEST VOU REC-EFINE JOBS ' STOP 
FOR I=0TO4 H<I>=0 NEXTI 
IF L0-9 GOTO 4470 
FOR 1=1 TO N 

IF L<IK1 OR L(I»4 PR1NTMOB CODE OUT OF RANGE " STOP 
H<L<I>> « H<L<I>>*1 
NEXT I 

FOR I«4 TO 1 STEP -1 
FOR J=l TO M 

IF L2UK1 OR L2(J>:-4 PRINT-PERSON CODE OUT OF RANGE" STOP 
IF L2<J)«I THEN M<0)»M<0>«1 
NEXT J 

PRINTTAB<3). H<8). "PERSONS CAN TAKE JOBS OF LEVEL"! 
IF H<0> ">• H< I i GOTO 4450 

PRINT-NO^ ENOUGH PERSONS QUALIFIED FOR T HESE JOBS- STOP 
REM IF ONLV-in-CATEGORV WANTED INSERT H."0»=8 HERE 
NEXT I 
RETURN 

REM ERROR HANDLING 

IF ERR-24 OR ERR=2 PRINT-VOUP DATA ARE NOT ENTERED PROPERLY" STOP 
IF EPR«6 PRINT-NOT ENOUGH DATA -- '.HECt AND RESTART" STOP 
IF ERR=8 THEN P9="N" RESUME 
ON ERROR GOTO e 

REM DATA LINE 4990 HAS NM OF JOBS- M«t OF PERSONS., AND 
REM CODE FOP OPTION. 8 = RESTRICTED- 9 = NOT RESTRICTED 
DATA 7. 28. 6 

REM JOB DATA FROM LINE 5080 PUT HIGHEST CODE JOBS FIRST 
DATA "CHAIRMAN". 3. "SECRETARY". 2 "SERGEANT-AT-HRMS". 1 
DATA-LEADER 1*. 1, "LEADER 2". 1- "LEADER 3", 1. "LEADER 4". 1 
REM PERSON DATA LINES 5100 ON 

DATA "JONES". 3. "SMITH". 1, "STONE". 2, "HARDY". 2. "WALLACE". 1 
DATA "EVANS". :: "ROGERS". 3. "ADAMS". 1. "WHITE". 1. "CASEY". 1 
DATA-OUINCY-, 2, -CROSS". 1. -WILLIAMS". 3, "PISf ■ 2. -OWENS', 1 
DATA "JACKSON".!. "JOHNSON". 3. "TAVLOP". 2 "TANDY". 1 
DATA "BPX-2 
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the individual's job-level code 
is set negative so he will always 
be "unqualified" for subse- 
quent jobs until a re-sort and re- 
set occurs. If not enough per- 
sons remain unassigned for a 
whole day's roster, the list will 
be reshuffled. 

Customizing the Program 

Because there may be fewer 
highly qualified persons than 
are needed for the full four- 
week array of rosters, an inter- 
nal adjustment of the counters 
and codes allows those premi- 
um individuals to recycle more 
often than the rest. The count- 
ers in array H, by the way, allow 
the search to begin where it left 



off last time. 

Then everything is printed 
out a week at a time by the seg- 
ment beginning at line 2000. 
The job and people's names are 
accessed with the index num- 
bers that have been shuffled 
around up to this point. 

In order to assign persons 
within a single category only, 
two changes are needed. One is 
to change the "greater than or 
equal to" symbols in line 1240 
to "equals." The counter in the 
checking subroutine should be 
set back to zero at the end of 
each loop by inserting line 4450 
H(0) = 0. 

Since out-of-range codes are 
trapped, the number of valid 



codes can only be increased by 
changing the dimensions of ar- 
ray H (line 160) and the indices 
for loops that use the code 
levels, at lines 4180, 4395, 4410 
and 4420. The number of weeks 
allowed can be increased by 
changing the second dimen- 
sion of array K2 at line 160 and 
the statements that use it— 210. 
1100. 1200 and 2000. All other ar- 
rays and loops are set by the in- 
put parameters. 

Although the program is writ- 
ten in Level II BASIC on the 
TRS-80, there is little unique in 
it. The special features that are 
used are either nonessential 
(such as the 32-character dis- 
plays at the beginning and end) 



or are easily written around. 
Two string arrays are declared 
by a DEFSTR statement at line 
70. Conversion might require 
seeking out the few places the 
string arrays are referenced (in 
the dimension statement at line 
160. the reading statements be- 
tween 800 and 900 and the 
printout routine beginning at 
line 2000) and changing the Gs 
and Ps to G$ and P$. The guts 
of the program are standard 
BASIC. 

Now, when you rotate the 
kids among the dish-washing, 
yard-work, car-washing and 
dog-walking chores, at least it 
can be purely random and 
fair ■ 



IBM SELECTRIC PRINTER 




TIS II INTERFACE Tl IS M! PIUTE 



TYPE WRIT El $ UNUNITED 
^136 



TRS-80 



SPEEDUP BOARD 
REVERSE VIDEO 

SPEED MOO - You dent have to spend S3. 500 on a TRS-BO 
Modal II to oat tastar computing Now you can speedup your 
Laval II TRS-80 - Disk systems included I - by up to 100% 
(50% guaranteed) with our speedup board The result is more 
animated graphics, shorter program run times, and generally 
tar greater computing power for your dollar Change between 
normal and taster operation by using a simple BASIC statement 
The contents ot memory are not affected by speed changes and 
a switch is not required |a switch may be installed it manual 
speed select is desired). Changes are provided for NEVVD0S. 
DOS 2.2, and DOS 2 3 that allow disk systems to run reliably 
at both the normal and accelerated rate Buy the most versatile, 
easiest to install, and most publicly recognized speed mod 
on the market today 

A SSEMBLED & TESTED $24. 95 

REVERSE VIDEO is finally here ' It you re tired ot going blurry- 
eyed looking at your video display, then you are ready for 
reverse video It provides dark black characters and graphics 
on an all white screen tor a much crisoer and much easier to 
read presentation Change between normal and reverse by 
simultaneously pressing a combination ot three keys on the 
keyboard 

ASSEMBLED $14.95 

Add 5%> for postage and handling 
California residents add 6% sales tan 

Bill Archbold Electronics 

OeptBO • P0 Bo* 7123 • Sacramento CA 95826 

(916) 362 3627 ^122 



I Advanced Scientific Software for | 

TRS-80 and NORTH STAR 
MATH Librar y I 

22 quality programs (req 16K) including root of 
equations, integration, differentiation simulta 
neous equations, matrix operations, interpola- 
tions, regression analysis (linear, polynomial, 
multiple), ordinary differential equations, partial 
differential equations, statistics and plotting, 
with manual 

TRS-80 disk $25. 

TRS-80, Level I tape S22. 

North Star disk (single density) $35. 

ODE Master 

Solves single and simultaneous ordinary differ 
ential equations, can handle even stiff prob 
lems; error control and formatted output to CRT 
or prinler. with manual 



TRS-80 Level II. 16K tape 
North Star disk (single density) 



515 

S20 



Custom Software for education or prolessional 
use is available. 



III*. I,ce 

L5K19 Thomas 



^110 
I'hiladclphia PA 191*3 tflJ) 748-4558 



BREAK THE 16K BARRIER! 

Med Systems Software at last provides the TRS-80 
user with a 16K RAM resident mixology data base 
management system that far surpasses any com- 
parable software on the market today This system 
maintains drink recipes in an encoded format which 
greatly expands the apparent on-board storage 
capabilities The data base comes pre-imtialized 
with 102 full page recipes of popular mixed drinks, 
each complete with ingredients, glass type, mixing 
instructions, garnishes, and cross-reference to 14 
categories 

User additions to the data base are easily accom- 
plished and fully explained In the accompanying 
booklet The Basic Bartender Each order is shipped 
with a two week money-back guarantee and an 
extra C-10 cassette for back-up copying All orders 
are mailed within 48 hours 

TRS-80 16K Level II cassette S9 95 

N C residents please add 4% tax 

TRS-80 It • r*gltt*rtd trademark of TANDY COUP 

Med Systems Software 

PO Box 2674 Chapel Hill. N C 27514 ^ 12 8 





These popular, professionally developed 
applications are low-priced. Guaranteed 
performance! Detailed booklet included. 

• BUDGET & INVESTMENT S 17.95 

• BUDGET 8, CHECKING 81U.95 

• HOME INFO RETRIEVAL 811.95 

• HATH (ages 5 and up) 5 7.95 

• STOCK PORTFOLIO S 18.95 

• AUTOMOBILE 812.95 

• MASTERMIND game 810.95 

• MONTE CARLO game 8 7.95 

• and others from 8 i*.95 

Send order, or S1.00 for descriptive 
catalogue (free with order) to: ^116 

NEWSY SOFTWARE DEVELOPMENT CO 
299 DAWLISH AVE TORONTO CANADA M4N IJ6 
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HOME 



Want to see how much you spend each 
month? This program plots time versus rate. 



Graph Plotter 



Scott King 
7905 59th Ave. N. 
New Hope, MN 55428 

Have you ever had to create 
a need to put in front of 
your solution? That was my 
problem. After I spent the 
money for a Level II TRS-80 



(16K), my wife said, "Kind of ex- 
pensive for a Star Trek game, 
isn't it?" I had to accept the 
reason I bought a computer: it 
was really neat. 

For those of you who join me 
in the middle-to-low income 
bracket, "really neat" is hard to 
justify to the wife and the 



budget. So I set out to create a 
need for the computer that I 
already had. 

One of the returns on my 
endeavor was this program to 
display my gas, electric, water, 
etc., bills on a time graph so 
that I might compare the bad 
months to the good ones, 



Program listing. 



18 REM ***** TIME/RATE DISPLAY PROGRAM ***+ 

28 REM ***** BV SCOTT KING 2/16/79 **** 

38 REM ***** TRS-80 12K BASIC **** 

48 REM ************************************ 

45 CLS 

58 PRINT" TIME/RATE DISPLAY PROGRAM 

55 PRINT" PRESS ENTER TO BEGIN "j INPUT AA 

98 CLEAR 1888 

188 DEFSTR A, B, C, D 

118 DIM A<?5> 

128 N-l 

138 INPUT "ENTER X AXIS LABEL "; B 

148 INPUT'ENTER V AXIS LABEL "; C 

141 IF LEN<C>>15 THEN PRINT" THIS LABEL IS LIMITED TO 15 CHARACTERS" : GOTO 140 

145 INPUT-ENTER FIRST X AXIS INCREMENT I E. JAN MONDAY ETC "; D 

148 INPUT " WILL THERE BE MORE THAN 16 ENTRIES MADE", AA 

149 IF AAO-NO" THEN Zl-1 

150 INPUT" IS THERE A TAPE TO LOAD"; AA 
168 IF AA-"NO" THEN 288 

178 INPUT" LOAD THE TAPE AND PRESS ENTER". AA 

171 INPUTft-1, B 

172 PRINT'-X- AXIS «"iB 

173 INPUT»-1. C 

174 PRINT-Y- AXIS »".C 

175 INPUT»-1, D 

176 PRINT"FIRST X INCREMENT". D 

177 INPUT«-1. 21 

178 IF 21=1 PRINT" HIGH DENSITY DISPLAY 
138 INPUT#-1, A<N> 

185 PRINT N. A<N>, 

198 IF R<N> = "EN[>" THEN GOTO 288 

195 N=N*1 : GOTO 180 

288 INPUT " ARE THERE ANY ENTRIES TO BE MADE ";AA 

210 IF AA-"NO" THEN 248 

228 PRINTN INPUT "ENTER DATA AMOUNT"; A<N> 

230 N-N+l GOTO 288 

248 A<N)«"END" 

258 INPUT"DO YOU WISH TO CHANGE ANY ENTRIES"; AA 

251 IF AA="NO" THEN 268 

252 INPUT "ENTER NUMBER TO BE CHANGED"; N 

253 INPUVENTER NEW VALUE"; ACN> 
268 CLS 

278 M=l 

271 PRINT "X- ";B 

272 PRINT "Y= "; C 

273 PRINT "X STARTS AT "; D 

288 PRINT M. A<M>, : IF MON THEN M=M*1 GOTO 288 

290 INPUT" DO YOU WISH TO SAVE THIS DATA ON TAPE"; AA 

388 IF AA="NO" THEN 358 

385 INPUT "SET UP A TAPE FOR RECORDING AND PRESS ENTER"; AA 

318 M-l 

311 PRINT#-1, B 

312 PRINTH-1, C 

313 PRINT«-1, D 

314 PRINT»-1. 21 
328 PRINT* -1, A<M> 

338 M-M+1IF M<=N GOTO 328 



check to see if my energy- 
conservation measures were 
doing any good and plan ahead 
for bills that fluctuate through- 
out the season (e.g., my gas 
bill). 

The Program 

This program was written on 
a TRS-80 Level II, but with minor 
changes, it will easily run on a 
Level I. It is designed to plot any 
two sets of numbers on an x-y 
type graph. The x (horizontal) 
scale has two different resolu- 
tions, 16 and 75 points. If you 
are working with the high-den- 
sity scale (75 points), you can 
"blow up" a section of it for a 
better look. 

The y-axis (vertical) is self ad- 
justing. Its lowest resolution is 
to 20, but it will automatically 
adjust to the largest number to 
be displayed. 

Operation 

The program starts by asking 
you to label the x-axis (for this 
example we will use months, 
but it could be days, weeks, 
hours or even, in some cases, 
people, money, cars . . . any- 
thing, as long as it doesn't ex- 
ceed 75). 

Next, enter the y-axis label, 
which may not exceed 15 char- 
acters. We will use kilowatt- 
hours (kWhr) for this example. 
So this graph will be a plot of 
kWhr used over a period of 
months. 

The next entry to be made is 
the starting point of the x-axis; 
we will begin ours at January 
1979. 

Now the program will ask if 
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there is an old tape to load. If 
this is the first time you have 
run this, then enter no. But if 
you have data, load the tape 
and dump it into memory. 

If there are any manual en- 
tries to be made, such as a new 
bill arrival, then enter them at 
this juncture. Next, you will 
have the opportunity to change 
any entries previously made. 

After all of this has taken 
place, the computer will display 
the current data and ask if you 
wish to save it on tape (which 
you should do). When this is 
done, the computer will draw 
the graph, go through the y-axis 
automatic scaling and plot the 
data on the display. The graph 
will stay until you press ENTER, 
at which point it will ask if you 
would like an expanded view of 
any section. 

Conclusion 

I have found this program 
useful in keeping track of my 
bills, but it could easily be used 
to plot a curve for any situation 
where you have both time and 
rate numbers. ■ 



3Se REM *•* PLOT DfiTft ***** 

351 CLS 

360 S-LENCO 

37e u-iT-e 

380 PRINTtT. niDSCC. U,l> 

398 U-U+l IF LOS THEN 380 

488 T=T*64 GOTO 388 

See PRINT • 978. B. " STARTING WITH "> D; 

510 FOR X-5 TO 118 

328 V-48 SETCX, V> NEXT 

538 FOR V-8 TO 43 
548 X«5 SET<X, V> 

541 X-118 SET<X, V> 

542 NEXT 

543 IF Zl-1 THEN FOR X-18T0118 STEP 2:V-41 SET <X, V>:NEXT 

546 IF 21-1 THEN 558 

547 G-899 F-l 

548 PRINT8G. F F-F*l O-G+3 IF Q<945 THEN 548 
558 GOSU8 658 

555 G0SU8 788 

568 X-18 

565 N-l 

578 FOR V* 48 TO t48-<VflL<R<N)><^C>> STEP -1 

575 SETCX- V) NEXT 

377 IF 21-1 N-N*1:X-X*2:IF R<N>-"END" THEN 688 

578 IF 21-1 THEN 383 

588 N-N*l X-X+6 IF A<N>-*END" THEN 688 

583 IF <Zl-8>fiND<N>16> THEN 688 

586 GOTO 578 

688 INPUT R* 

628 INPUT " 00 VOU WISH TO SEE ft BLOWUP OF RNY ONE SECTION", ftfl 

621 IF Rfi-"NO" THEN RUN 

622 INPUT" 16 PLftCES HILL BE OISPLRVED. . . ENTER FIRST POINT TO BE SHOWN", M 

623 FOR V-1T018 R<V>"ft<M> : IF ft<M>-"ENO"THEN fi<V>-"ENO" :GOTO 625 

624 M-M*l NEXT 

625 ftCV)-"ENO" 21-8 

626 GOTO 358 

658 REM **** SIZING ROUTINE ***** 

655 K- 5 H-l 

668 IF R<M>-"END" RETURN 

662 IF I1>74 THEN RETURN 

665 2-VftL<ft(M>> 

670 X-Z/K 

675 IF X> 48 THEN K-K+ 5 GOTO 668 

688 M-M*l GOTO 668 

708 L-57 H-48 

710 PRINT 9 L. INTCH*K>. 

720 L-L*64 H-H-3 

730 IF H>-0 THEN 718 

748 RETURN 





Diskette 
SALE 

WE WILL NOT BE 
UNDERSOLD!!! 

Find the best price you can in this 
magazine on a box of 10, 5% " Verbatim 
diskettes and 




(Low discount price - S26.S0) 

THAT'S OUR PRICE 

FHpfia 




Eijia 
Stcrsfija 



4636 Park Granada 150 
Calabasas California 

11992 1970 



91302 



12131 



Offer good as long as supply lasts. 
Please add 50* shipping in the Continen 
tal U.S. 



SUPERIOR SOFTWARE PACKAGES 
FOR THE 
DISK BASED 



TRS-80 



THE • $79.95 

SMART TERMINAL 

• TRUE BREAK KEY 

• AUTO REPEAT KEYS 

• PROGRAMMABLE SOFT' KEYS 

• MULTIPAGE SCROLLING DISPLAY 

• FULLY CONFIGURED FROM KEYBOARD 

• TRANSMIT SCREEN. PRINT SCREEN 

• TRANSMIT FILE. RECEIVE &. CREATE 
DISK FILE 

• FLEXIBLE I/O LINKAGE CAPABILITY 

• MULTI PROTOCOL CAPABILITY 



SPOOL-80 



• $39.95 



PRINT YOUR LISTINGS WHILE RUN- 
NING OTHER PROGRAMS 



DISPLAY + 



$49.95 



FULLY SCROLLING DISPLAY DRIVER 
AND HIGH PERFORMANCE KEYBOARD 
DRIVER USED IN THE SMART TERMINAL 
AVAILABLE SEPARATELY. 



MICRON, INC. 

10045 Watertort Or. 
Dlteotl City, MD 210*3 



• 73 



(301)461-2721 
MC/V1SA accepted 



3IT1 

■■a ccipan\ 




if**** 



5'/«" Diskettes 


10 


50 


100 


3M-744-0 


3.15 


2.95 


2.85 


Verbatim 525-01 


2.65 


2.45 


2.30 


8" Diskettes 








3M-740 


3.05 


2.85 


2.75 


8" Double Density 








3M-741 


4.15 


335 


3.80 



Diskette Storage Pages 10/3.95 
Plastic Library Cases 5" - 1 .95 8" - 2.85 

CASSETTE TAPES -Agfa PE 611 

Premium quality in superior 5 screw housing. 

C-10 10/5.65 50/25.00 100/48.00 
C-20 10/6.90 50/30.00 100/57.00 

TRS-80 Adventures by Scott Adams 
Machine Language Classics for 16K. 
Seven Adventures currently available. 
SALE! $1230 each, 3 for $35.00. 

NEW SARGON II Chess (TRS-80 cassette) 
regular price $29.95 — our price $2430 

Add $1 per order tor shipping. We pay 
balance (UPS surface) on all prepaid orders. 
•■TRS-ao Is a registered trademark ol TANDY CORP.' 
A B COMPUTERS 
115 E. STUMP RD. 
MONTGOMERYVILLE, PA. 18936 
(215)699-8526 ^si 

WRITE FOR COMPLETE CATALOG 



t^ Reader Service— see page 147 
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HARDWARE 



Keep all your wires out of sight, 

but under control with this cabinet idea, 



Box It In 



John Zalnerunas 
3034 W. Columbus Ave. 
Chicago IL 60652 



Ever since my TRS-80 was 
delivered, the problem of 
strung-out wire, cables and 
components taking up too 
much of my already limited 
space kept cropping up. This is, 
no doubt, a problem with many 
computers, particularly home- 
brew systems, but it should not 
be a problem with a fully 
assembled store-bought unit. I 
was determined to correct this 
before attempting any serious 
programming. 



A console "walnut veneer" 
custom TRS-80 is shown in the 
photo. It is portable, turns on 
with one switch and plugs in 
with one cord. It even has a 
tape-recorder control switch to 
bypass the computer. 

The "power on" and "tape 
control" additions were taken 
from previous issues of Kilo- 
baud, (see Lien and Water- 
man's articles, "Cassette 
Recorder Disaster: Ground 
Loops," p. 110, May 1978, and 
"Turn It Off," p. 114, April 1978) 

The visible part of the con- 
sole is constructed of walnut 
veneered, shelf boards. These 
boards have a brown-grained 
appearance, a good match for 




Computing is more organized and professional with a homemade 
console for your TRS-80 system. The author's son Paul illustrates 
how relaxing programming can be 




© 



© 



-V 



NOTE All WOOO PANELS ARE 3/4" Tm>C« . EXCEPT (5) , which 'S 1/4" "HiC» 



Fig. t 




© end panel 
Support (2 reooi 



r v i 



© BRACE iiREODI 



the silver gray and black of the 
TRS-80. 

I used a 3/4 inch plywood 
panel for the full one-piece bot- 
tom support and wood-stained 
all visible edges to match the 
walnut veneer color. 

You can use pine boards in 
place of the walnut boards, if 
desired. These can be cut into 
panels and covered with a 
wood-grained "contact paper." 
Later you can add some metal 
trim for a professional look. 

Construction 

Start by cutting up all panels 
to exact dimensions as shown 
in Fig. 1. Drill holes and make 
up the required amount of each 
panel as indicated. Mounting 
screw holes are not dimen- 
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sioned but can be positioned 
approximately as in Fig. 2. Use 
a #8 or #10 brass wood screw, 
IV. inches long, for all mount- 
ings. 

First assemble both (A) 
panels to the bottom plywood 
board. Pre-drill holes, apply 
white glue to mounting edge 
and screw panels together. You 
can recess the screws so they 
can be filled in with wood putty 
for a neater look. 

Mount the top monitor panel 
(C) next by applying white glue 
and screwing this panel to both 
side panels. I even used white 
glue on all screw threads for ex- 
tra holding power, since the 
walnut panels were made of 
particle board. 

Now glue in the two small (E) 
supports and the center brace 
(F) to the bottom plywood. Use 
a two-part epoxy glue so mount- 
ing screws will not be re- 
quired. 

A simple bracket for the mini- 
jack can be made as shown in 
Fig. 2 and mounted on the left 
side panel. A spring plate is 
mounted on the center front 
edge of the plywood board. 
Press this plate edge into the 
slotted seam of the keyboard to 
hold it in place. Use two of them 
side by side if needed. I used a 
plate made from a piece of .020 
phosphorous bronze. 

Final Assembly 

Place your tape recorder over 



the center brace (F) and push it 
under the monitor panel. The 
recorder should fit snugly, right 
up to its counter switch. (Add 
shims to brace, if required.) 

Wire an SPST switch to the 
left end (D) panel for recorder 
control, as shown in Fig. 3. Now 
epoxy this panel in place. 
Epoxy the right (D) panel and 
hold down in place with some 
weights; screws are not re- 
quired. 

Place your computer key- 
board over the plywood panel. 
Connect and route all cables as 
shown. Push the keyboard for- 
ward to check the fit. You prob- 
ably will have to carve out a 
small part of the right side 
panel (A) to make a better fit for 
the far right cable plug on the 
keyboard. When a good fit is 
obtained, push the keyboard 
fully forward and attach the 
locking spring plate. This 
spring plate allows the com- 
puter keyboard to be moved 
back slightly to get at the reset 
and off/on switches when re- 
quired. 

If you decide to mount the 
monitor permanently to the top 
panel (C), use #8 wood 
screws— 1V» inches long with 
large washers and mounted 
from inside of monitor case 
(through slots), one in each 
corner. 

With the console completed, 
programming is now more 
enjoyable.! 




spring plate 



Fig. 2. 



-BACK END OPEN 



UNDERSIDE Of 
LEFT PANEL 



REMOTE LINE 



TRS-BO PULLED BACK 

TO SHOW WIRE POSITIONS 




MOTE. PLACE TAPE 
RECORDER OVER © 
SUPPORT TO LOCATE 
EXACT FOREWARD 
POSIT ON BEFORE 
GLUING IN PLACE 



WEDGE POWER 
SUPPLY IN WITH 
GLUED WOOO 
SUPPORTS 



NOTE TOP ENO 
PANELS ® 
REMOVED 




DEBBYMAE 




There are absolutely no keys or fields lo predefine. 
Thus, you can enter as much or as liTlle information 
n a subject as you wish without westing file space. You 
1 even keep two or more data bases in the same file. 

DEBBY* interactive conversational format makes it fun 

and easy for anyone to enter, chenfe. relreive or delete 

information, yet can easily be changed to fit particular 

needs or to look more "businesslike." Hard copy of any 

or all information retrieved is at the user's option. 

HF.HBYMAEs unique feature ■ en automatic indexing of each 

new entry. This sophisticated eross-indesing system 

allows fast single-command retrieval of a single piece 

of information, all entries on the same subject, all 
information of the same type for all subjects, similar 
information on all subjects via a special INSTR search, 
and much more. DEBBY even performs analogies, end allows 
the retrieval of data when you can't recall the subject 
under which its stored, using a -query by example" format. 
In short. DEBBYMAE is an ideal information storage and 
retrieval device for almost anyone who needs to recall 
varying types of information about a number of subjects. 

Obvious applications are for salesmen, ministers, and 

similar professions, but DEBBY can satisfy virtually any 

storage/retrieval application which doesnt require 

computation, including inventory control. 

Model I 18k . specify 1 or 2 disks) < 90.00 

Model I listing 4 manual $ 50.00 

Manual only (applies toward purchase I » 10.00 

Model I (8*k. specify \ or J Asks) » 100.00 

NONPAREIL SOFTWARE 

LITM W. Virgin Street ^-12 7 

Tulsa, Oklahoma 74127 
(til) JI4-4 J»0 
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Adventure 




^International /| 



"Highest rated games are the Adventure games". 
Robert Purser Edition 7 CCR 

Declared a true "Classic". 

Computer Cassettes Review, Fall '79 

"Adams' Adventure is exquisite. It is a true 
tour-de-force . . ." 

Recreational Computing Sep/Oct '79 

Out of 50 programs reviewed Adventure was 
rated No. I 1 "Highly Recommended". 

80 Software Critique Issue \o. 1 
"I highly recommend these programs ". 

80- US Journal, Sept /Oct 79 

Adventures by Scott Adams aie available from 
our many fine Dealers for TRS-80, Pet. Sorcerer 
and by Christmas, the Apple II' 

Write for free flyer Each Adventure SI 4.95 

Adventure International 
Box 3435 *W 
Longwood, Florida 32750 
COD/ViWrVlastercharge - Call (305) 862 6917 



CdkipuCdueiv 




COVER YOUR INVESTMENT 



• IrtiprcnrVd Amiability 

• Longvr Lil« 



-iT-S-^-i' 

VOw (Mtwi 



t Vinyl • WMtjrproo' & Dutiprooi 

• Ttvaa Dacortnor Cotori 
SaOd* Tan • Etacea Bk* • B acfc 



09 



MUnrimiwa (kjOFULOAr. s^ 100 

'0 SoBI iDepI Ci 
Mjty Esther >;. 3JJ69 
Phone (904; iays/U _^ 



DEALEI InOUMEi INVITED 
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REVIEW 



Apparat software allows old programs in new BASIC. 



One into Two 



Sherman R. Wantz 
424 NW Lakeview Dr. 
Sebring FL 33870 

If you have been giving serious 
thought to modifying your 
TRS-80 Level II BASIC system 
so that it will accept all of those 
Level I BASIC programs you 
have saved on cassette tape, 
wait. You don't have to void 
your Radio Shack warranty by 
opening your Level II machine's 
case, cutting circuit board 
traces, installing a Level I ROM 
and adding several resistors 
and a switch. There's a simpler 
way. 

Apparat, Inc., of Denver, Col- 
orado, offers a software pro- 
gram on cassette tape that will 
make your Level II BASIC sys- 
tem act as though it were a Lev- 
el I BASIC machine. The price 
of the "Level I In Level II RAM" 
program cassette is a modest 
$14.95, plus $2 for handling and 
shipping. 

If you have very many Level I 
BASIC program cassettes on 
hand that you haven't been 
able to convert for use in your 
Level II system, the price of the 
program is quite reasonable. I 
was never able to get Radio 
Shack's "Program Conversion, 
Level I to Level M" cassette to 
work satisfactorily. 

Apparat's program is written 
in machine language and oc- 
cupies about 4.3K bytes of 
memory space at the upper end 
of your Level II 16K byte mem- 
ory bank. That leaves almost 
12K bytes of memory available 
for use by any Level I program 
you want to RUN. There are 
some— but not many — pro- 
grams written in Level I BASIC 



that require that much memory. 

The program cassette sup- 
plied by Apparat comes with- 
out any supporting documenta- 
tion. However, almost all you 
have to know to use the pro- 
gram is written in just seven 
words and symbols that appear 
on a label attached to the cas- 
sette's plastic shipping box. 

After you turn "on" your Lev- 
el II BASIC system, you type 
SYSTEM on your keyboard and 
press the Enter key. The "*?-" 
prompt will appear on your 
monitor's screen to indicate 
that the computer is ready to 
accept a machine-language 
program. You then place the 
"Level I In Level II RAM" pro- 
gram cassette in your tape re- 
corder and engage the record- 
er's Play lever. 

Type LEVEL I and press the 
Enter key. This will activate 
your recorder's motor and will 
start loading the program into 
memory. If your recorder's vol- 
ume control has been adjusted 
correctly, you should see the 
usual double asterisks (one of 
which blinks) appear in the up- 
per-right corner of your video 
monitor's screen. 

If you fail to obtain the dou- 
ble asterisk/blinking indication 
during loading, rewind the cas- 
sette tape, reset your record- 
er's volume control, press the 
reset button inside the left rear 
cover of your computer's key- 
board assembly and repeat the 
loading procedure described 
above. 

After the "Level I In Level II 
RAM" program has been trans- 
ferred to your computer's mem- 
ory, the tape recorder's motor 



will stop turning and the "*?-" 
prompt will again appear on 
your monitor's screen. Type "/" 
and press the Enter key. The 
computer will clear the moni- 
tor's screen, will print READY 
and will display the familiar ">-" 
BASIC prompt. From that point 
on, your Level II machine will 
perform as though it were oper- 
ating under control of BASIC 
contained in a Level I ROM. 

Rewind the Apparat tape and 
remove the cassette from your 
recorder. Insert in the recorder 
the Level I program tape you 
wish to use. activate the record- 
er's Play lever, type CLOAD on 
your keyboard and press the 
Enter key. 

As your Level I program is 
transferred from tape to mem- 
ory, you will notice that thedou- 
ble asterisk now appears in the 
upper left corner of your moni- 
tor's screen. When your Level I 
program has been loaded into 
memory, the recorder's motor 
will stop and the ">-" prompt 
will reappear. Now, all you have 
to do to use the program in 
memory is type RUN and press 
the ENTER key. 

Operating in Level I 

I have been particularly 
pleased to find that I do not 
have to readjust my recorder's 
volume setting after I load the 
"Level I In Level II RAM" pro- 
gram and then CLOAD my Level 

I program. I thinkthat condition 
is attributed to just plain luck 
on my part. But after having fid- 
dled so long with my recorder's 
volume control to load my Level 

II program tapes made on other 
recorders, it is refreshing to re- 



call how uncomplicated it used 
to be to load tapes a year ago 
when my system was using 
Level I BASIC. 

The computer's response to 
the LIST command fills the 
monitor's screen with program 
lines. You use the "t" (up-arrow) 
key to step through successive 
program lines. You can "dump" 
(record) your program to cas- 
sette tape using the CSAVE 
command. The format of the re- 
corded program will be Level I 
and the data transfer rate will 
be 250 baud. 

Even the error messages are 
pure Level I, i.e., "What," 
"How" and "Sorry." If you have 
forgotten what these error mes- 
sages mean, you had best dig 
out that dusty "User's Manual 
For Level I" and refresh your 
memory. 

Of course, since your system 
is now operating in Level I BA- 
SIC, you do not have access to 
the convenient editing func- 
tions that Level II BASIC pro- 
vides. Nor will you be able to 
use the LLIST and LPRINT com- 
mands that Level II provides for 
printout of your programs. 

You will be pleased to learn 
that when you use the NEW 
command, the Level l BASIC 
program in the computer is 
erased, but the "Level I In Level 
II RAM'' program remains. 
Therefore, you will be able to 
load successive Level I BASIC 
programs into your computer 
without having to reload Ap- 
parat's program. 

However, if one of your pro- 
grams' "hangs up" during load- 
ing and you are forced to acti- 
vate the computer's reset push- 
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button switch to regain control, 
you will probably have to reload 
the "Level I In Level II RAM" 
program before you can load 
another Level I BASIC program. 
As soon as you turn your com- 
puter off, the "Level I In Level II 
RAM" program disappears and 
your system reverts to its Level 
II BASIC configuration. 

Limitations 

My experience with Apparafs 
program has uncovered one or 
two minor problems that I attri- 
bute to my having loaded the 
program at too low a volume 
setting on my recorder. 

One of my programs con- 
tained a line that used A$ and B$ 



separated by a colon. The B$ 
string was continually trun- 
cated (shortened) even though 
it consisted of less than the al- 
lowed 16 characters. I moved 
B$ to a separate program line 
and had no more problems. 

Another problem I experi- 
enced involved my use of the 
ON N GO TO statement. In one 
portion of my program, the 
computer would not respond to 
the shorthand dialect ON N G. 

. . However, in several other 

parts of the same program, the 
computer did accept the short- 
hand statement without default. 

Since these problems have 
not occurred in any of a number 
of other Level I programs I have 



RUN using the Apparat pro- 
gram, I assume that the prob- 
lems alluded to above were self- 
induced and were not the fault 
of the conversion program. 

I have heard that the "Level I 
In Level II RAM" program will 
not accept programs written in 
machine language. Since Ap- 
parat did not furnish documen- 
tation with its program tape to 
warn against attempting to use 
the program with machine code, 
perhaps it will perform properly 
in exactly the same manner that 
a Level I BASIC program in ROM 
would operate. Since I have no 
machine-code programs in my 
library, I could not test the con- 
version program to validate the 



claim that it is incompatible 
with machine language. 

I'm very pleased to have the 
capability that Apparafs pro- 
gram provides. The price was 
right and the program's opera- 
tion has been better than satis- 
factory. My only fear is: Mur- 
phy's Law is bound to come in- 
to play and, somehow, I'll inad- 
vertently erase my program 
tape. But that's just the way my 
luck runs. 

For those of you who might 
want to order the Level I In Lev- 
el II RAM program cassette 
write to: Apparat, Inc., 6000 E. 
Evans Ave., Bldg #2. Denver CO 
80222. ■ 



CENSUS CHECKER 



The Census Checker system is a sel of programs 
designed to check ihe accuracy ol the 1980 cen- 
sus. The census will provide the population counts 
that will be used by all levels ot government for the 
next ten years. II they are inaccurate and omit peo- 
ple, then your city or county will suffer. Revenue 
sharing, federal and state grants and future plan- 
ning depend upon an accurate census. Census 
Checker can help. 

The Census Checker is designed for the Radio 
Shack TRS-80 microcomputer and may be used on 
any other BASIC micro with BASIC and disk files. 
Small cities and counties will benefit most from 
the use of this system The programs are straight 
forward and may bo modified tor special local 
problems 

For further Information write: 

MICRO DECISION SYSTEMS 

3008 Redwood Ave. 
Lakeland FL 33803 ^i&6 

Other government and census reiated micro soft- 
ware m development 



For Canadian^ 
* Owners 



Lower Case Modification . . $65.00 
Cassette Load Modi f ication ■ $20 . 00 
Radio Shack Numeric Keyboard 

Installation $50.00 

(You supply numeric pad) 

RS232C Serial 1/0 Port for Printer 
etc. (Complete with connectors) 
For Use With or Without Expansion 
Box $169.95 

For a complete catalog and credit 
vouchers worth $25.00 on future 
purchases send $5.00 to: 

•AM Quotm* *i Cmnmdktn Fund* 

ORTHON assEHF 



►^108 



12411 Stony Plain Rd., 
Edmonton. Alta. T5N 3N3 



TRS-80 SYSTEMS 
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VMN STIEET rROOUCTS . RADIO SHACK DIALII 

1 14 «V TAET ' SAPUIPA OK 7 4064 

PHOM 1910) 214 5)47 Ol (91*1 I14-4144 

TERMS— COO VStlCOME CASH. MOMt ORDER OR 

CHECKS MASTER CHARGE AND VISA 

ACCEPTED -ADO 3"» 
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1 MAXELL" 

p OR SCOTCH* BRAND DISKS D 

f» A 

L Some computensts pay 'ess but may not get j 

E Shuggart' or IBM" approved disKs 4 

T 8" SINGLE SIDE • DOUBLE DENSITY a 

n Box of 10 FOR $50.00 ■ 

* 8" DOUBLE SIDE -DOUBLE DENSITY J 
~ Box of 10 FOR $65.00 J 

5y4"MINI — Box of 10 F OR $40.00 a 

i^B pHMH 

' rtfg&DYSAN- DISK 8 VISA ' 

**^ * ***** ^—— • 

" 5''«- Mini • Box of 5 tor $25 00 £2g"igj C 

4 COD $1.00 Additional - Specify (8" - M 

II Soft or Hard Sector) (5"-Soft or Hard Sector) E 

? CUSTOM -i2i s 

* ELECTRONICS INC. • 

T 238 EXCHANGE STREET 

* CHICOPEE, MASS. 01013 • 

J, est i960 1—413—592-4761 ? 

HOURS: Tues. to Sat. — 9 to 5 • 

•ATARI* • •TII9»-4*HATtLL»* 



{j* IlisiNEss Accoixtixg tifc 
< P Software i * 



Flexible ctient write-up teacnl ledger syiltm designed b> 
a CPA and des eloped b> a computer specialist for CPA's. 
accountants and general businessmen provides large-scale 
computer features at micro-computer software costs: 

* designed for use by present employees 

* allows for up to fOO accounts 

* departmental financial statements including 
budgets 

* retains standard journal entries 

* automatic balancing of transactions 

* fast entry & posting of transactions 
' easy to follow audit trail 

' conventional accounting symbols used 

For 9-program package on diskette with user manual 
send S495 to: 

Task Comih'tek Applications 

Dayton, Ohio PO Box 24001 
45424 
(513)233-2118 " u7 



CANADIAN INCOME TAX 

Runs on 16K Level II or Disk 
2 programs are available 

T-1 SPECIAL— 1979 

This package is for those who do not need to file the 
more detailed GENERAL RETURN Based on your in- 
come and deductions for 1978 You cannot use this 
return if your income is over $20,670. Or you claim 
Capital gams o' losses. Commission sates. Divi- 
dends. Self-employment, or you claim Alimony. 
Child care expenses. Deductions transferred from 
spouse 
This package is $39.00 + Ont. Sales Tax 

T-1 GENERAL— 1979 

Needs Level ll. preferable 2 Tape recorders or Disks. 
This program is a complete Income Tax progr., 
usable not only for your own return but also for use 
by professional Income Tax Preparers. It calculates 
all schedules. 1 1o 10 (schedule 1 1 has not been im 
plemented. because of the Fall of the Gov.) 
You can, with it, prepare income tax returns for profit 
-You set the fee- 
This package is $90.00 + Ont Sales Tax 

To order send check (and state your equipment con- 
figuration) to: 



) R SOFTWARE 

177 Linus Rd. 

Suite 808 

NORTH YORK - Willowdale 

Ontario. M2J 4S5 



^155 
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REVIEW 



The Radio Shack board 

lets your 80 do the talking— to other computers. 



RS232 



Roger L. Hicks 

5534 Woodberry Circle 

Marietta GA 30067 



Communications has come 
to the TRS-80, and, at $99, it 
may be the biggest bargain 
since Level II BASIC. I am refer- 
ring to the RS-232C board 
(shown at right). 

Even if you are not inter- 
ested in communications, read 
on! The RS-232 board has a 
variety of uses that do not in- 
volve communications in the 
usual sense of the word. 

Most of us are familiar with a 
parallel interface, which moves 
all eight bits simultaneously 
over eight separate lines. A 
serial interface handles the 
same eight bits, but one at a 
time over a single line. The Elec- 
tronics Industries Association 
(El A) has established a standard 
for serial interfaces referred to 
as RS-232C. While this ap- 
proach clearly lends itself to 
telecommunications, there are 
other uses. 

The RS-232 is the only feature 
I know of offered by Radio 
Shack that gives the user a stan- 
dard way of connecting a variety 
of peripheral devices from other 
manufacturers. In my case, I 
was able to implement a low- 




cost hard-copy line printer into 
my system. 

Implementation 

The board in the accompany- 
ing photo installs under the 
large access cover in your ex- 
isting expansion interface and 
comes with a ribbon cable, 
instruction manual and 
machine-language program that 
allows your TRS-80 to emulate a 
standard asynchronous ter- 



minal (provided a modem, 
acoustical coupler or direct con- 
nect is available). The board 
plugs into a 42-pin connector 
that is part of the expansion 
interface. Some early produc- 
tion versions have the connec- 
tor already in place, but you will 
probably have to take your 
expansion interface to your 
nearest Radio Shack service 
center for installation (no extra 
charge). 



The early version of the 
instruction manual has a 
number of errors (however, the 
quality of the rest of the feature 
is excellent). Table 5 on page 16 
erroneously shows 130 baud as 
the result of loading 5H into the 
BRG (baud rate generator). A 5H 
will, in reality, yield 300 baud. 

The DIP switches are labeled 
on the board (S1-S8), but no- 
where is the user told in which 
direction to push a DIP switch to 
open or close the circuit. To 
open, push each switch in the 
direction of the UART (large IC 
chip). The remaining errors are 
minor (easy to figure out), and ail 
remaining implementation in- 
structions are clear. 

Line Printer Application 

The remainder of this article 
describes the programming 
considerations in using the 
RS-232 interface to add a line 
printer to a 16K system (I expect 
this to be the most common 
noncommunications applica- 
tion). Referring to your Level II 
BASIC manual, the trick is get- 
ting your RS-232/printer to re- 
spond to LPRINT and LLIST 
commands. Beginning on page 
26, the RS-232 manual describes 
the procedure. 

The line printer driver pro- 
gram is in ROM and is designed 
for a printer connected to the 
standard parallel interface. This 
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5 POKE 16421, 2iP()KE l&422,l83iP(>KE 16423,12/ 

10 B)H X-32695 To 32?67iREAD Y'POKE X.YiNEXT 

15 END 

20 DATA 229, 197, 245, b*, 255, 127, 2t>4, 1 ,40,32,62,1 ,50,255,127 

25 DATA 211,232,219,233,230,248,246,4,50,254,127,211,234 

30 DATA 219,233,230,7,33,246,127,6,0,79,9,126,211,233,241 

35 DATA 193,225,219,234,203,119,40,250,121,211,235,254,13 

40 DATA 32,4,14,10,24,239,201,34,68,85,102,119,170,204,238,0,0 



Listing 1. 



10 POKE 16413, 2IPOKE 16414, I83IPOKE 1641b, 127 
5000 POKE 16413, 7iPOKE I 64 I 4, 881 POKE 16415,4 

Listing 2. 



driver program is, however, a 
subroutine that is called each 
time a character is to be printed. 
This call address is in RAM and 
can be modified (POKE) to ex- 
ecute a user-supplied driver 
stored in RAM. The assembly- 
language listing of this driver 
begins on page 27 of the 
manual, and a BASIC program 
to POKE the machine-language 
code into upper RAM is on page 
29. My only problem here was 
wasting 256 bytes for a driver 
program that only needs 73. 

Listing 1 is a modified version 
of the program shown on page 
29, except that it only occupies 
the last 73 RAM locations. On 
power up, enter a memory size 
of 32694 (instead of 32511 for 
the Radio Shack version). Load 
and run the BASIC program; you 
can now enter NEW and pro- 
ceed with any program or activi- 
ty using LPRINT and LLIST at 
will. Execution of NEW will not 
erase the driver program begin- 
ning in location 32695 (it will, in 
fact, remain until you power- 
down). 

If you are like me, you have at 
least one large program with a 
lot of PRINT statements that 
you will now want to change to 
LPRINT. Wait, there is an easier 
way! It so happens that the 
driver program for the video 
display is also a ROM-resident 
subroutine called by an address 
stored in RAM. 

Referring to Listing 2, if you 
add line 10 to the beginning of 
your program, all subsequent 
PRINT statements will go to the 
RS-232/printer instead of the 
video display. Be sure to ex- 



ecute line 5000 before stopping, 
or the video's output will con- 
tinue to go to the printer (if you 
get an unanticipated break that 
prevents this, simply enter 
RUN5000). Needless to say, if 
you are redirecting video output 
to the printer, you cannot use 
PRINT @ or video graphics. 

One Final Problem 

The software we have covered 
assumes that at 300 baud, for 
example, each character can be 
decoded and printed in the time 
it takes the RS-232 to handle one 
byte (approximately 34 milli- 
seconds). This is a valid 
assumption unless the char- 
acter decodes to a carriage re- 
turn (in which event, the driver 
program automatically inserts a 
line feed as the next character). 
Depending on the type of printer 
involved, the next one (or more) 
printable character(s) may arrive 
before the printer is ready (and 
be lost). 

If your printer manual does 
not cover this subject, it can be 
corrected (if encountered) in one 
of two ways: 

1. After each LPRINT that 
completes a line, add 

LPRINT STRINGS (5, CHR$(00)); 

This transmits five (subject to 
change) nonprintable char- 
acters, which gives the printer 
an extra (5 x 34) 170 milli- 
seconds to get ready. 

2. Execute a FOR-NEXT loop 
to stall the program, for exam- 
ple: 

FORX = 1 TO 100NEXTX 

With a little luck, you will not 
encounter the problem except at 
high baud rates (1200 + ).■ 



MICRO 
BEEP" 

ADDS SOUND 
TO YOUR 

TRS-80™! 

MAKES GAMES MORE INTERESTING 



BEFPSON ERRORS • AT END OF A SORT • AFTER PRINTING . WHENEVER YOU W ANT ' 



SIMPLE HOOK UP Ju« plug 



EASILY CONTROLLED FROM BASIC 



OUT 255.4 - ON 
OUT 255.0 ■ OFF 



24 HOUR HOTLINE • VISA OR MASTER CHARGE • COD . 602 882 3948 ^ig 

PI EASE SEND MICRO BEEPS 

PS9.96 t a Plus S2 50 (Per Orderl - Postage St Handling Name 

A/ Residents add 6% Sjies Tax 

- Check a Money Order □ VISA n MC u CO Address _ 



Account No __ 

Eipi'MienDM 

WORKS ON ANY MODEL ONE TRS-80 



',:„•- 



ajiijjja'jsjs 



jjjjjX Ui&bz 



'JJJVZhtl, *Aid WJ\li> 



ajiu'ja'jajs'a njs >rj3aa' 

34) j«q> >y,d:LiJ3 ;p^JLtUU.i 



FEATURES S FANTASTIC PROGRAMS AT AN UNHEARD OF PRICE! 



BACKGAMMON 5.0 

The best backgammon program for the TRS-80. Plavs standard 

international rules, will not allow .llega' moves ifast 1 b seconds O' less avq 
move) Uses doubling die" I Features finest graphic display vet available 1 " 

SPEED READING (C.A.I.) 

Increase your reading speed and comprehension with this educational 
program. Computer adjusts your WPM (words per minute) according to 
comprehension Up to 5000 words per minute possible 1 ' Simulates the 

tachistoscone 1 

YAHTZEE 

Up to four people may play against the computer Excellent animated 

graphic dice Standard yaht/ee rules apply Bonus points. Yaht/ee. Chance, 
etc. 

WALL STREET 

You and opponents buy and sell computer generated stock in this exciting 
simulation. Each player starts with 50.000. The first to make a million 
dollars wins FAST ACTION"' 

PT 109 

Quick co ordination is required with this fast action arcade game Drop 
depth charges on subs 1 " 



24 HOUR HOT LINE: VISA . MC • COD . 602-882 3948 



ha) »nd m. Packagt • 7 Tap»t 

«12 95 * Plus JJ 50 IPottao, * Hem8.ni rV a 
Out* :: Mann f>«r. .j v.u :;MC ::COOrS3Wf 

CC Account • Raou.rn I6K LVII 
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Add.ru 

Cry _ 
Slav _ 



aJiilJJU'-HJX JH)Z U&jUd-J'S UM?-U31>iTa *XA dVJMU 
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APPLICATION 



Soundex is used to class similar sounding 
names together, for easier genealogical research. 



Soundex Codes 



Robert A. Hodge 
417 Pelham Street 
Fredericksburg, VA 22401 



ble, especially under a time 
pressure, to code a list of names 
without making errors. Because 
of this, I try to prepare all codes 



to be searched well in advance 
of attempting to use the 
records. 
Working with my TRS-80, I 



have developed a program 
which accurately produces the 
Soundex code for any name 
entered.! 



I have been involved in gene- 
alogical research for a 
number of years, and occasion- 
ally have found it necessary to 
use the records housed in the 
National Archives. There, a num- 
ber of records, particularly the 
latest available census records, 
are indexed according to an 
elaborate coding system called 
Soundex. 

Developed to group similar 
sounding names together re- 
gardless of spelling, the system 
uses the first letter of a name for 
alphabetical filing and converts 
all other letters into numbers as 
follows: 

• 1 is assigned to b,f,p,v; 

• 2 is assigned to c,g,j,k,q,s,x,z; 

• 3 is assigned to d,t; 

• 4 is assigned to I ; 

• 5 is assigned to m,n; 

• 6 is assigned to r; 

• no value is assigned to 
a,e,h,i,o,u,w,y (normally); 

Complications sometimes 
arise because only one of any 
two consecutive equivalents 
are recorded (including, in this 
case, the first letter, normally 
not coded at all). The final result 
must be adjusted to consist of 
one letter and a 3-digit number, 
extra digits being discarded; ab- 
sent ones are recorded as zeros. 

I have found it nearly impossi- 



100 
105 
110 



115 



120 

125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
17 5 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
27 5 
280 
285 
290 
295 
300 
305 



CLS 

PRINT TAB (20) "THE SOUNDEX CODE" 

PRINT: PRINT "A NUMBER OP RECORDS IN THE NATIONAL ARCHIVES HAVE BEEN INDEXED 
ACCORDING TO A SYSTEM ALLOWING SIMILAR SOUNDING NAMES TO BE GROUPED 
TOGETHER REGARDLESS OP SPELLING. THIS SYSTEM IS TERMED THE 'SOUNDEX SY 
ST EH ' m 

PRINT:PRINT"IF ONE IS GOING TO THE ARCHIVES, IT WOULD BE HELPFUL AND TIME- 
SAVING TO HAVE THE SOUNDEX CODES ALREADY AVAILABLE FOR THE SURNAMES ( 
LAST NAMES) ONE WILL BE SEEKING." 

PRINT: PRINT" I AM PROGRAMMED TO DETERMINE THE SOUNDEX CODE FOR YOU" : PRINT : INP 
UT"TAP ENTER WHEN READY" J A 

DIMA$(25),B$(25),C(25) 
CLS 

PRINT"TYPE THE SURNAME (LAST NAME) TO BE CODED AND PRESS 'ENTER' ": INPUT"" ;A$ 

A-LEN(A$) 

C(1)-ASC(LEFT$(A$,D) 

FOR B=2 TO A 

B$(B)-MID$(A$,B,1) 

NEXT B 

FOR B-2 TO A 

C(B)-ASC(B$(B)) 

NEXT B 

FOR B-l TO A 

IF C(B)=66 OR C(B)-70 OR C(B)-80 OR C(B)-86 THEN C(B)=1 

IF C(B)-67 OR C(B)-71 OR C(B)-74 OR C(B)-75 THEN C(B)-2 

IF C(B)-81 OR C(B)-83 OR C(B)-88 OR C(B)-90 THEN C{B)-2 

IF C(B)»68 OR C(B)-84 THEN C(B)-3 

IF C(B)-77 OR C(B)-78 THEN C(B)-5 

IF C(B)-76 THEN C(B)«4 

IF C(B)-82 THEN C(B)-6 

IF C(B)>6 THEN C(B)«0 

IF C(B-1)»C(B) THEN C(B)-0 

NEXT B 

CLS:X-0 

PRINT"THE SOUNDEX CODE FOR '"A$"' IS:" 

PRINT: PRINT: PRINT LEFT$(A$,1), 

FOR B«2 TO A 

IF C(B)-0 GOTO 275 

PRINT C(B) , 

X-X+l 

IF X-3 GOTO 295 

NEXT B 

FOR B-l TO 3-X 

PRINT "0", 
NEXT B 

PRINT: INPUT" IF YOU HAVE ANOTHER NAME, PRESS 

IF A$-"NO" GOTO 305ELSE 130 

CLS : END 

Program Listing. 



'ENTER' OTHERWISE TYPE 'NO'";A$ 
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HOBBY WORLD 
ELECTRONICS 

America's Largest Mail-Order Computer Store 



iSKr 



MATCHLESS SYSTEMS 

TRS-60 
MINIDISK $395 

DRIVE 2forS775 

The b«»t drive available today* 
Complete and ready to inc. with 
free 2-drive cable? Free software 
for speeding up your access lime 
from 35m» to 17ms* Optional 
software for increasing data 
storage from SSK lo 67JK on 
your first drive, and to 99K. on 
your second drive* fufl 120 dav 
money bad. guarantee! 




Cal No 


. Description 


1175 


Drive w/2 drive 




cable 


IN* 


4drive cable 




(alone) 


1918 


Ml Hs-40 




software 


1147 


Verbatim disk- 




ettes. 10 for 



HAZELTINE TERMINALS 

Standard interfacing to most systems' 

Cat No. Model Description Price 

21fc7- 1400 SI lev. M « 24 displj>, tkjmb t«40 

21*8' 1500 rntel lig enl. 74 key, N > 24 Sim 

21 W* 1520 hrtelHjeiH. (1 key, *S chat. SI 5*8 



ATARI 

THE AFFORDABLE COMPUTER 



The perfect computer for 
Sophisticated, yet simple. De- 
signed by the eipert in home 
computer based accessories. It 
won't become obsolete, because 
it has an expandable memory, 
advanced peripheral compo- 
nents, and comprehensive arra> 
of software modules. Whether 
you've had programming experi- 
ence or not, you'll find yourseH 
operating your Atari in no time 
at atf* features of the Model 400 
include: 57 kev keyboard, high- 
resolution color graphics, built- 
in TV modulator for direct con- 
nection with any standard color 
TV. OK RAM. OK BASIC ROM 



SARGOrJII 

Hoyden 

The champ of champs! Surpasses 
Microchess. and even Sargon I! 
Offers co m ple* moves. 7 levels 
of play, activity indicator, a 
special "hint" mode, phis more! 
I He best chess program ever! 
Cat No. 2001 TRS4M *».9S 
Cat No. 20*1 APPLE II S2995 



TRS-80 FORTH 

Programme! 

A compact threaded language. 
Vocabulary based, user may 
tailor the system to the ne e ds 
and structure of a specific ap> 
plication. User (Mines new 
words, which may in turn defir 

' complex applications. 
Cat No. 21 11 TUSOOL2.1t.KS14.95 1 



both home and business' 

plus more and more! The model 
■00 has all the features of the 
400 plus two channel digital re- 
corder, OK RAM, (expandable lo 
48KI and 16K ROM. (expandable 
lo URL 

Cat No. Description Pt.cr 

2172 Atari 400 Per- S550.00 

sonal Computer 
217b Digital Recorder 90.00 

for 400 
2171 Atari 000 Per- 995.00 

sonal Computer 

2174 Minidisk Drive 7SO.0O 
lor 800 

2175 Line Printer for 600.00 
800 



TRS-80PIE 

Pr o qramnro 

2 dimensional, cursor based 
editor. Features blinking cursor, 



r BARRICADE 




Similar to breakout. 


A real time 1 


game, with options 


of speed. 1 


balls, angle, etc. 




TRS-80 11112 16K. 




L Cat No. I3U S14.9 





BRIDGE 
CHAUiNOER 

You and dummy pby against the 
computer m regular contract 
bridge. I ither you or comp sets 



TIEUNE 

Pio oi arimo 

Turns your TRS-80 into a 
timeshare mainframe, smart ter- 
minal, and allows you to 
senoVreeelve BASIC and data via 
phone. Requires modem. RS232, 
12K. DOS 2.1 or later. 
Cal No. 2117 S6.95 



ANDROID NIM II 

Super improved version ol SIM. 
Constant excitement! 
TRS-80. 12. Ibk 
Cat So Ibfm *14»v 



upfdowrVleftfright, phis tabs: 
character insert/delete: siring 
search forwards and backwards; 
plus more and more! The best 
editor available for the TRS-80! 
Cal No. 2114 TRVS0.l2.ifcftS19.95 



SYSCOP 

Oupikares SYSTEM tapes ifo 

backup! 

TRS-80 L2. 4ft. 

Cal No. 1681 89.95 



STAR TREK III 

The most advanced 
we've seen! 
TRS-80 12, 16* 

. 1041 S14.95 



ADVENTURE 

f iplore an almost endless maze 

ol treasures and pitfalls. Chal- 
lenging and tun! 
TRS40 U. 16k. 
Cal No 172) S14.9S 



HUNT 

ProQtrjmriQ 

A new class of game where you 
invent your own characters, 
rules, and so on. All the best of 
Adventure, Dungeon, Quest 
Dragons all rolled into one! 
Cat No.214S reS-S0 1X1 6K SIMS , 



LEVEL III BASIC 

Ives your TRS-80 (he power of 
luH size system. Disk com- 
mands, advanced editing, etc. 
TRS-80 12, 16ft 
Cat No. 1)32 849 



NEW DOS 



Better than TRSDOS! Allows DIR 
while in basic, and then returning 
h> basic. DIRCHiCK. DISASSfM. 
IDTASM. and SUPfRZAP! A 
must for disk owners! 
Cat No 1 J49TRS80 12 • drskvn 



8" Disks 

$37 box of lO 

3 boxes for $100 

• IBM compatible 

• Single dens if v 

• Individually certified 

Cat No. 1145 Type 32-1000 

Description 

32 sector holes, 1 -index hole 

Cal No. 114b I. pe 34-1000 
interchangeable with IBM32, 
3740. 3770. 3790. etc. 

Verbatim 

5V, DISKETTES 

The most popular diskette in 
the world' 

$29/box of lO 
2for$55 

Cat No. Type Description 
t147 52S-01 Soft. TRS-80 

1148 525-10 10 hole hard. 

Apple, North- 
star. H8 

1149 525-16 16 hole hard. 

Micropolis 

DISKETTE/ DISK 
BINDERS 

Organises and protects sour data 
files! S'.~ disks fit two per insert 
8" fit one per insert. Binders in- 
cludes 10 inserts. 
Cat No. Description Price 

1650 Hi" binder J9.95 

1651 r binder 89.95 
16S3 estra 8- inserts .95 

1652 estra 5'-,- inserts .95 



VERBATIM 
CERTIFIED 
CASSETTES 



2 for 
S4.95 



Certified specifically for personal 

computers such as the TRS-80, 

Apple, Pes. etc Splice-free, 

leadertess. with folding recording 

tabs 

Cat No. 1945 



SOUNDWARE 

Add muvic and sound effects to 
vour programs. Complete wilh 
software and hardware. Installs i 

conds. 
Cat No. 1898 TRS-80. L2 S29.9S 



rnts-eo 

LOWERCASE 


810 


MODIFICATION KIT 


Modifies yo 
display both 
case. Installs ii 
drill, solde 
screwdriver. 

L instructions- 


ur machine to 
upper and lower 
i minutes, requires 
ring iron and 
With complete 
Cat No. 1550 



LEEDEX 

12" MONITORS 

Black and white, high resolution. 
Accepts ccrtnposite input No 
snrpments- 
Cat No. 1304 



$139 



r 16K MEMORY 


ADD-ON 


S75 


2 for $140 


For TRS-fU). Apple, fxidy 


Installs 


in minutes, no special 


tools required. Complete with 


detailed 


instructions. Wt 4 or 


Cal No. 


Description 


1156 


For TRS-80 keyboard 




unit 


USfcA 


IRS-80 without hol- 




lered cable 


I156B 


TPtS-80 with bullered 




cable 


1156C 


For Apple 


I 11560 


(or End> Sorcerer 



CALL TOLL FREE: 
(800) 423-5387 USA 

IN CALIF: 
(800) 382-3651 

LOCAL & OUTSIDE USA 
(213) 886-9200 



FULLER ElfCTRONrCS 

TRS-oO DUAL CASSETTE 

CONTROL CENTER 



$74.9$ 



Aids and simplifies cassette loading' 

Allows you to listen to cassettes as they are loading' 



No more plugging and unplug- 
ging cassette cables! Saves wear 
and tear on your computer 
system, adds the fleiibilirv thai 
sou need lor level II data 
storage! Internal speaker allows 
sou to listen to CSAV E and 
C LOAD, also allows you lo listen 
lo last forward and rewind 
iCTR-41). Independent volume 
control lets »ou adjust monitor 
volume without affecting 
loading volume. Built-in LID'S 



let you know status of one or 
both recorders. Now you can 
simultaneously CSAVE with both 
recorders; CLOAD with either 
recorder: cross tape with both 
recorders. Tested and reviewed 
in March ""9 Creative Com- 
puting. Compact, only 4" i 3'i" 
t 2'«" high. Completely assem- 
bled and tested Wt 16 oa. 

Cal No. 1971 for CTR-41 
•Cal No. 1974 For CTR-SO or CTR-21 



FULLER ELECTRONICS RF-3 

TRS-80 I/O Si AUXILIARY $39.95 
CONTROL CENTER 

• Controls lights, video recorders, appliances thru vour 7RS-80! 

• With complete application software and documentation 

• Built-in relay protetts your TRScW relav' 

• Controls from tractions oi a second to months' 

to check your RS-232 output 
without turning on the printer. 
Built-in infernal relit protects 
and b> passes control current 
from >ou. sem-h»e Tts-W relav 
Now >ou can even operate fc or 
more cassette recorders safer* 
for CSAVI NOTl: 110VAC 
CONTROUf R IS NOT INCLUD- 
ED. A simple schematic and 
parts hsl is supplied- Size: 2" \ 4" 



The most versatile TfiS-SG ac 
cessory available coda*! Offers 
features found onl> in units 
costing much more. Now »ou 
can control lights when ,ou'ir 
not home, at random times! Turn 
video recording equipment on 
and off at preset times, even 
months in advance. Internal 
beeper can be used to signal the 
end ol a long sort It also lets you 
know with one beep, two beeps, 
etc. esactfy what part ol the pro- 
gram you're in! Also allows you 



DIRECT 
CONNECT MODEM 



Novation 



Answer/Originate ' 

300 Baud' 

Designed specifically for personal computers ' 



Model 41030. the top of the line in 
rebabirity. economy, c on veni e n c e! 
Usable on either dsal-up or leased 
telephone lines, the 41018 is Bell 
101A or 113B compatible Operates 
at the highest standards of -9d6m 
for transmit level, and -SOdBm sen- 
sitivity. M ee ts aR FCC requirements 
for direct line hookup, all units sup- 
plies with standard new modular 



"T-rtug". Low profile design com 
plimenls (he appearance of all com- 
puter systems. May be mounted on 
either wall or desk. Front panel has 
LED inrJkahng RS212 interface 
status- Compact power pal plugs 
directly into waH socket, reduces 
heal and shock hazard 
Weight: 1 lb 
Cat No. 2214* 



$395 



l^tovcrHon "Cot" 
Acoustic Modern 

The first quality comp a ct modem 
designed specifically for the small 
computer user. Designed to 
transmit data over standard 
telephone lanes, the Cat has many 
uses for business and hobbyist. 
Allows one terminal or computer to 
interact with others, permitting one 
access to data from remote loca- 
tions. Hobbyists can exchange data 
and programs. Cooipatib-e with any 
Bell 101 modem and. ol course, all 



other Cats! Abo perfectly compati- 
ble with the new Radio Shack 
modem firs the same unit). Data ei- 
change can occur at any speed up 
to 30 charfsec. low profile case 
features switches for mode selec- 
tion and operation, also for LEO'S 
drsptaying unit status. Acoustic self- 
test is standard. Complete and 
ready-to-use. Requires 110 VAC. 
trOHz. 
Cat No. 1400 



$169 



HOW TO ORDER 

Pay by check. Matterc barge, 
Visa, or COD. Charge orders 
please include expiration date- 
Foreign pay in U.S. funds. Order 
by phone or mail, or at our retail. 
MINIMUM ORDER $10. please 
include phone number and mag- 
a finer issue you are ordering 
from. Prices valid thru last day of 
covet dale. SHIPPING: USA: 
add $2 00 for the first 2 lbs. For 
ground add JS« lor addfl lb. For 
air add 7S< lor addfl lb FOR- 
EIGN: surface: add JJ.00 for first 
2 lbs. MK per addfl lb. Air add 
$11.00 for first 2 lbs. »> for each 



addfl lb. CODs SI addfl. Guar- 
anteed satisfaction for 120 days 
or youi money back! Not re- 
sponsible lot typographical 
errors. Some items subject lo 
prior sale. We reserve the right 
lo limil quantities. 
SEND FOR FREE CATALOG 
FEATURING: 
Co—pull 1 1 and accessories, disk 
drives, printers, integrated cir- 
cuits. lEDs. semiconductors, 
books, software, connectors, 
plus more and more! The widest 
selection at the lowest prices! 
Circle our reader service number 
or phone/write today for soul 
Copy! 



19511 Business Center Dr Dept. V3 Northridge, Ca. 91324 
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SBiTl svsTEms, inc. 



^154 



Computer Services • Hardware • Software • Consulting 
Professional Business Software to operate on 
TRS-80* computer 

• ISAM Accounting Package: 

— Accounts Payable, Accounts Receivable, 
General Ledger with Cash Journal, In- 
voicing and Payroll 

Integrated Accounting System $425.00 

Separate Modules $ 99.00 

• ISAM Inventory Control $125.00 

— Above Systems require 2 - 3 drive Systems. 

— Integrated System requires 3 - 4 drive Systems. 

— Systems operate under NEWDOS by Apparat 
(not included) 

• Machine Language Disk Sort $ 49.95 

— Multiple Keys - Ascending, Descending 
Callable under Basic 

TO ORDER CALL: 




mabie' .haige 



VISA 



(617) 685-0151 



* Trademark of Tandy Corporation 

** Accounting Package not available in the State of California. 




TRS-80*— CONDENSE 

Till Ultimati in BASIC 

Comprission Utilities A^ 

" RiImm 1.3 Now Availabli '* ^P 



Write BASIC programs using single statement lines for ease 
of maintenance. 

Write BASIC programs with unlimited remarks and comments 
to improve program readability and documentation... 

— AND STILL GET — 
OPTIMUM USE OF MEMORY — FASTER PROGRAM 
EXECUTION 

Compresses programs up to 70% of original size 

Improves execution time by as much as 30% 

Creates multiple-statement program lines 

Blank compression 

Remark and comment deletion 

Renumbers GOTO. GOSUB. THEN, ELSE, and RESUME 

statements which reference deleted line numbers 

PLUS THESE NEW USER REQUESTED OPTIONS 

- Retention of low numbered remark statements 

- Checkpoint / Restart Facilities 
• Phase 1 work file 



Modi! I $21.95 

(Diskette) 



Modal II $24.95 

(Diskette) 



INTERNATIONAL SOFTWARE ASSOCIATES 

P.O. Box 14805 
Omaha. Ne. 68124 



• 187 



Tandy Corporation* 



TRS-80 SOFTWARE 

from 

SHALL CLKIPUTER SVSTEMS 

The Software People 

DATAMAN3 : Da»o Management System $4° 95 
ECMTOtl : Te»t ana Program Editor S99 95 
•OOK : EDITOR 1 UTILITY for pr inhng and orgcyw 

ing manuals $2<J 95 
UTIUTYJ : Wnte programs with iaee« instead of hne 

numbers $14 95 

MCNU : Program TNOf X Orgo/wes. toads and 

runs programs One step operation 

S24 95 
AMOtT : Co' ana Mortgoge amortization 

program $14 95 
SOVT : General purpose olpna numeric sorting 

routine . $14 95 
STOCK Realistic stock market game - $14.95 

KENO Las Vegas favorite $14 95 

MAW . Computerized drawing board $14.95 

These programs were written for the TRS-80 
Computer System and its peripherals. A 
minimum of 32K of memory and at least 
one disk drive are required for all. All soft- 
ware is supplied with Full Documentation 
PLUS applications examples. 
For Quoity Software-see The Software People" 

SMALL CQflPLITER SVSTEMS 

2935 East McDowel Road Phoenix. AZ 85008 
(602) 275-3108 

Additional literature and manuals are available 
Coll or Write tor prices 
Phone Orders Welcome 
Masterc harge ft VISA Cords Accepted ^ 83 

DEALER INQUIRIES INVITED 

"TRS-80 It > regtst.red trademark ol TANDY CORP." 




"R5-80 UTILITY PROGRAMS 



leaeaber the UZVEL I .bbr.vl.Ilon. [hit you lor 
when you |ot LEVEL II? Wow you ttn have evei 
•or.. Define your ovn .at ull| BASIC Una 10 
With the .hilt key down, .ny letter k.y can writ 
key word. o( your choice. A real tie. Mm 

An Improved tape loading routine that correct 
tlalnf relet lonahlp. and eases LEVEL 11 load a 
eaally a. LEVEL I. Loai. load-end -JO . or cop 
any LEVEL II tape. Slepisvs deta belnl loaded 



Tour prograa t. not entirely destroyed by 
coa*aad "HEW.- Thl. routine recalculate, add 
link, and reaet. pointer, ao that your progrea 
rlee. Iron the ..he. like the legendary Phoen 

Relocates your prcaent 



thout 



-r . i 



urvea . bar graph. 



A IASIC prograsithat will pr 

and awlllple functions on the screen and o 

PIUTO as well. Calculate your data and 

It la a (able or an array. Call moT aa a eub- 

a grid II you like. 



the above progra 



1) Aa a STSTER caaaett 
PHOT is available In 



ape lor LEVEL 11 lb* eat 
listing using Z-*0 auaao 
EVEI II BASIC cassette o 



P O BOX 8098 PENSACOLA. FL 32505 

FLORIDA 904/438-6507 

nationwide 1 800 874 1551 



S5.95 each (cassette or listing, specify) 
plus SI. 50 per order for postage and 
handling (foreign orders S3. 00 per order 
for postage and handling. Texas residents 
add 6Z sales tax) 



MARIGOLV ASSOCIATES 

P. 0. BOX 58101 
HOUSTON, TEXAS 7705S 

►>156 
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r TRS-80 
SERIAL I/O 

• Can input into basic 

• Can use LUST and 
LPRINT to output, or 
output continuously • 
RS-232 compatible • 
Can be used with or 
without the expansion 
bus • On board switch 
selectable baud rates 
of 1 1 0. 1 50. 300. 600. 
1200. 2400, panty or 
no parity odd or even 
5 to 8 data bits, and 1 
or 2 stop bits D.T.R 
line • Requires +5, 
-12 VDC • Board only 
$1 9.95 Part No. 8010. 
with parts $59.95 Part 
No. 801 OA. assembled 
$79 95 Part No 8010 
C No connectors pro- 
vided, see below 




EI4HS23? CO 
"actor P»rl Ho 

oesvwm Mh 

9. 8 conductor 
cMMSIOaSPan 

Ml Lb.'.H 



COMPUCRUISE 




$ 1 2935; with cruse con - 
trol $169.95 



THE TELESIS 

VAR-80 

INTERFACE 

UNIT 



/; 



For the TRS-80 with 
Level II Baste • Provides 
8 outputs • Provides 8 
inputs • 2 ft. of mter- 
ccnnecbngcable w/ con - 
nector • Plugs directly 
into TRS-80 • Power 
supply provided • As- 
sembled and tested. 
Part No. VAR80. Intro- 
ductory price $ 1 09.95. 



GAME PADDLES 
& SOUND 




Includes: 2 game pad- 
dles, interface, soft- 
ware, speaker, power 
supply, full documen- 
tation including: sche- 
matics, theory of 
operation, and user 
guide, plus 2 games on 
cassette (Pong and 
StarshipWar) $7995 
Complete Part No. 
7922 C 



16K RAMS 

For the Apple, 
TRS-80 or Pet $8 
each Part No. 4116/ 
2117. 



DIGICOM DATA 
PRODUCTS INC. 

Series 312 
Acoustic Coupler 

300 BAUD Originate. 
Part No. AC3122, 
$219.95. 300 BAUD 
Answer. Part No 
AC3122. $21995 
300 BAUD Answer/ Or- 
iginate. Part No AC3 123. 
$229.95. 



LIGHT-PEN 
ForYourTRS-80 




Your TRS-80 bght-Pen 
is a carefully engineered 
instrument and with the 
proper care will give 
satisfactory use and 
many years of service. 
Part No. TRS80LP 
$2485 



SYSTEM 

EXPANSION 

from 

LIMW Research 

• Serial RS232C/20 
mA I/O • Floppy con- 
troller • 32 K bytes 
memory • Parallel print- 
er port • Dual cassette 
port • Real-time clock 

• Screen printer bus • 
Onboard power supply 

• Software compatible 

• Solder mask, silk 
screen PC board and 
user manual, Part No 
LNW80, $69.95. 



DISKETTES 




Verbal im 



Box of 10, 5" $29.95. 
8" $39.95. 
Plastic box, holds 10 
diskettes, 5 - $4 50, 
8" -$6.50. 



CASSETTE TAPE 
ERASER 




Removes recordings m 
one second! ERASER-8 
$19.95 



S-100 INTERFACE 




AN S-100 bus Adapter— Motherboard for the 
TRS-80 Kit. Part No. HUH81 DLXK, $295 95 
Assembeled. Part No HUH81 DLX A, $375.95 



NOW! 

A FULL SUPPORT SYSTEM 

FOR TRS-80 




• 32K of RAM • EPROM firmware • Disk 
control • Data acquisition • Parallel I/O • 
Serial I/O • Plug into GPA's Motherboard. 
GPA's quality design includes • 6-44 pm edge 
connectors • • 5\A -5V, • 1 2V. -1 2V external 
power supply required • Active termination. 
The Motherboard, Part No. GPA80, is only 
$14985. 

TAKE ADVANTAGE OF 

GPA-EXPANSION CARDS 

FOR THE GPA80 

Memory cards: Now with Fortran compilers 
available for your TRS-80. additional expansion 
memory is a mustJ Card with sockets only, Part 
No. GPA801 . $1 1 9.95 Card with 1 6K of 4 1 1 6 
Dynamic Ram, Part No. GPA802, $224.95. 
Card with 32K of 41 1 6 Dynamic Ram. Part No. 
GPA803, $329.95 All cards come equipped 
with sockets to accomodate 32K of Ram 
EPROM firmware card. Put those valuable 
subroutines in firmware Don"t waste time 
loading and unloading tapes and disks. For 2708 
or 2716 EPROMS, Part No. GPA806. $79.95 
Sarial I/O card. Here's what you've been 
asking for, a full serial terminal interface, with 
RS -232C or 20 mA. Current loop Input/ output 
capabilities Part No. GPA807, $79.95. 
Parallel I/O Card. Control functions in the 
outside world, monitor and store real time 
events Two parallel output ports. Dip switches 
select ports (0-254). Part No. GPA808. 
$79.95 



LEEDEX 
MONITOR 



CI 



12" Black and White* 
12 MHz Bandwidth 
• Handsome Plastic 
Case -$139.00 




FLOPPY DISK 
STORAGE BINDER 

Three-ring binder 
comes with ten trans- 
parent plastic sleeves 
which accommodate 
either twenty, five-inch 
or ten, eight-inch 
floppy disks. Binder & 
10 holders $1485 Part 
No 8800; Extra holders 
951 each. Part No. BOO. 



DIGITAL 
CASSETTE 




5 mm. each side Box 
of 10 $9.95 



Holds two 5-1/4 inch 
diskettes and will fit 
any standard three ring 
binder $9.95/ 10 Pack. 



TRENDCOM 
PRINTER 

EJ 

• 40 characters per 
second • 4-7/16 inch 
wide thermal paper • 
Graphics (TRENDCOM 
100): 480 sevendot 
pnnt postions per line. 
TRENDCOM 1 00. Part 
NoTRC0100,$49585. 
TRENDCOM 200. Part 
No. TRCO200. $37535. 
Interface for TRS-80, 
PartNo.T80A$45 95. 
For Apple II. Part No. 
TRCAII. $7585 For 
PET. NO. TRCP2. 
$79.95. For Scoccerer, 
TRCSR1 $4585. 



SARGON: A Computer 
Chess Program 

Features the complete program that won the 
1978 West Coast Computer Faire Tourna- 
ment Part No 00603 — TRS-80 Level II; 
Pjrt No 00604 — Apple II (24K). $19 95 



SOUND EFFECTS AND MUSIC 
FOR YOUR COMPUTER 




SOUNDWARE is a complete system. It includes 
a speaker/amplifier unit with volume control, 
earphone jack, and connectors It boasts 
excellent tone quality yet is small and convenient 
to use Add batteries, plug it in, and play One 
year warranty. SOUNDWARE package (in- 
cludes INTRO to SOUNDWARE programs) 
PET (BK). Part No. 20003, $29.95 TRS-80 
Level II (16K), Part No 20002. $2935. 
Compucotor II (8K), Part No 20001, $3995. 
INTRO to SOUNDWARE programs only PET 
and TRS-80, Part No. 20005, $1 495. Compu- 
color II Part No. 20006, $1 9 95 



Tq Qf dfir ' Mention P art no - description, and price. In USA shipping paid by us for orders accompanied by check or money order. 

We accept COD orders in the U.S. only, or a VISA or Master Charge no., expiration date, signature, phone no., 

WBpi |^A shipping charges will be added CA residents add 6.5% for tax Outside USA add 10% for air mail postage and han- 

wSmi ™ " dlmg Payment must be in U S. dollars. Dealer inquiries invited. 24 hour order line (408) 448-0800 ^26 



Send for FREE Catalog . . a big self-addressed envelope with 41* postage gets it fastest! 



ELECTRONIC SYSTEMS De Pt 00 P ° Box 21638, San Jose. CAUSA 95151 



^ Reader Service— see page 147 
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If you enjoy driving, you're going to get a 
COMPUCRUISE. Once you see what it can 
do, you just won't be able to live without it. 



{• 




This gadget fits into most dashboards ... no strain even in a tiny sports car like the Mazda RX-7 . . . and 
once you have it, every irip is like Hying a 747. The darned thing tells you the time, how fast you're going, how 
far you've been on this trip or since the last regassing, how many miles per gallon you're getting, either at the 
instant or the average on the trip ... or gallons per hour at the moment or for the trip . . temperature outside 
. . . inside (or coolant temperature, if you prefer) . . . oh, it has an elapsed time for the trip, a stop watch, lap 
time, an alarm . . how much further for your trip, how many gallons more the trip will take, how much longer 
for the trip at your present average speed . . . yes, it gives you your average speed for the trip. You prefer it in 
metric, no strain . . . liters remaining, etc. Did we mention that it also has cruise control either at a speed set 
on the control board or at whatever speed you are traveling? The Compucruise will keep you busy and enter- 
tained during any trip . . . telling you more than you will ever want to know. 

The Compucruise is not difficult to install . though it does connect to everything except the cigarette 
lighter. Until you've tried computerized travel, you haven't found out how much fun driving can be. It will work 
on any car not having fuel injection . and there is a front-wheel drive accessory gadget available for only 
$4.40-#P001 (regularly $5.50). 

The price for the Compucruise is regularly $199.95 . . and a bargain at that price. We'll sell you one of these 
fantastic gadgets for $159.95 with cruise control (Model 44-#P002). and $1 27.95 without (Model 4l-#P003).Send 
money . . . and start having fun! 



MAIL ORDER MICROS * 

Dept M80 • PO Box 427 • Marlboro f\IH 03455 
Phone: (603] 924-3041 



■ OB 

n d a 



ana 



Steal Stopper 



Ever had your car stolen? 

The first reaction is one of disbelief . . . 

. . . you know it was right there*. 

What you want is a modern combination lock on your ignition . . . 
The Steal Stopper. It's easy to install and almost impossible to 
defeat You can by-pass it. if you want, for parking attendants or a 
car wash. Other than that, you set up a secret four digit code and 
only will then be able to start the car . . even if you leave the keys 
in the ignition. 

This protection retails for $50 . . but we have a special for you at 
$39.95. Don't procrastinate. Order #P004. 

Note: This product works best on Detroit cars Mazda RX7 
owners must order additional module. #P008. which costs $8 The 
Steal Stopper can be modified for Mercedes. Porsche. Ferrari, or 
other high performance European cars by returning unit to 
manufacturer with $3. They promise quick modification and return 



PROCESSOR TECH 

HARDWARE 

I Processor Tech Video 
Display Module— Memory 
mapped video for S-100. ex- 
cellent condition. 
#D009-$144 each. 



PROCESSOR TECH 

SOFTWARE 

2 Processor Tech Extended 
Disk BASIC— This is full 
disk BASIC on 8 " disk for 
HELIOS II disk controllers 
with PTDOS and greater 
than 16K #D015-$80 each 

1 Extended Disk BASIC on 
cassette— This is the same 
as previously mentioned for 
the Disk BASIC from Pro- 
cessor Tech. Needs more 
than 16K. #D017$72. 

8 Extended Cassette 

BASIC— This includes all 
file operations, advanced 
functions for doing more 
than playing games; for 
SOLOS. CUTTER, and CON 
SOL Monitors. #D016-$22 
each. 
1 9 BASIC 5 from Processor 
Tech— This is a simple 
BASIC tor a SOLOS, CUT- 
TER, or CONSOL Monitor 
andSKof RAM. #0013- 
$11.60 each. 

4 Processor Tech GAMEPAC- 
for above BASIC— Various 
simple games. #D014-$1 1 60 
each 



ASTROLOGICAL 

COMPUTER AND 

4-FUNCTION 

CALCULATOR 

ASTRO* 

Gives you a fascinating look into 
your personality traits. Compares 
16 different combinations. 
Matches your astrological influ- 
ences to any day — past, present, 
or future. Gives in-depth analysis 

i o( youi compatibility wrtfi your 
boss, your spouse, your lover, 
your child. Regularly $49.95. 

,#P0020-$39.95 SPECIAL PRICE. 



'PROCESSOR TECH SOL 

4 SOL Computers— 8K RAM 
Monitor, S-100. excellent 
condition. #D004-$980 each. 
19 TREK-80 on cassette for 
SOL — This is one of the 
best real time space games 
available today: needs 8K. 
#D005-$11 each. 
9 Electric Pencil on cassette 
lor SOL — Word processor, 
needs 8K. #D006-$80 each. 



MICRO TERM 

ACT TERMINAL 
MicroTerm ACT Terminal 

— Need a video monitor, up 
to 600 Baud, good condi- 
tion. »S035-$2O0each 
SPECIAL PRICE 



COMPUCOLOR 

HARDWARE 
Compucotor Computer 8001 

(use as computer or 75 
MHZ Color Monitor)— 8K 
RAM, BASIC and DOS in 
ROM, good condition. 
#S025-$1500 each. SPECIAL 
PRICE 

Compucolor Mini Floppy 
— 5V« inch, good condition. 
#S026-$525 each. SPECIAL 
PRICE. 

Compucolor 8K RAM card 
- Static RAM, good condi- 
tion. #S027$200 each. 
SPECIAL PRICE. 
Compucolor Floppy Tape 
Drive— Uses eight track car- 
tridges, good condition. 
#S028-$70 each. SPECIAL 
PRICE. 



PANASONIC 

TAPE DECKS 
Panasonic RS261 US Stereo 
Cassette Decks— with auto-stop,) 
record level adjust, VU meters, 
used condition; all have had 
heads replaced and aligned. 
#T001-$50. 

Panasonic RS260 US Stereo 
Cassette Decks— same as above J 
but also has bias switch for 
chrome tapes. #T002-$50. 



POLYMORPHIC 

HARDWARE 
PotyMorphic Video Terminal 
Interface Memory mapped 
video lor S-100 bus. good to 
excellent condition. 
#S044-$150 each SPECIAL 
PRICE 

Poly M orphic Cassette Inter- 
face—Plugs into Poly CPU 
only, new. #D047-$29.60 
each. 

PolyMorphic S-100 Cabi- 
nets—Nice 5-slot S-100 
mainframe, good to excel- 
lent condition. #D049-$248 
each. 



>OLY-88 ACCESSORIES 1 
Parallel Keyboard — Good 
condition. #S001-$50 each. 
SPECIAL PRICE. 
Software on 5'/«"— This is 
system software that re- 
quires a PolyMorphic Disk 
Controller in a System 88 
Cabinet. #D002$100. 
Electric Pencil-#D003 $80,, 



ALS-80 
ALS-80 Operating 

system— This system re- 
quires 12K RAM from D000 
to FFFF; as well as either 
the SOLOS or CUTTER 
monitor; it includes an As- 
sembler/Editor. #D018- 
$11.60 each. 



NORTH STAR 

HARDWARE 
North Star Floating Point 
BASIC card— With special 
BASIC, new. #D0059-$287. 
North Star Floating Point 
BASIC card (kit)— With 
special BASIC. S-100. new. 
#D0060-$207. 

North Star Floppy Disk Con- 
troller card— Single density. 
S-100. new. #00061 $248. 
S-100 Edge Connec- 
tor—Gold Contacts, new. 
#O050-$2 each. 
Extender Card tor S-100 
(kit)— New. #0051-524 each. 



BALLY GAMES 

Bally VideoCode Cassettes 
—They consist of two 
games: Speed Main and 
Bingo Math #D029-$16 
each. 

ABACUS 

Abacus Paperweight - 
Hefty, brass, excellent con- 
dition #S024-$3 SPECIAL 
PRICE. 



MUSIC 
2 Software Technology S-100 
Music system on cassette 
—This is an S-100 Music 
system: contains the proper 
hardware. #D0058-$19.60 
each. 

COMPUTER TRAINER 

1 IASIS COMPUTER-IN-A- 
B00K— 8080 Microcomput- 
er, comes built into training 
manual, excellent condi- 
tion. #D020-$240 



ICOM 

DISK DRIVE 
ACCESSORIES 
ICOM Dual Disk Drive- 
Single density. 512K 
storage, S-100 controller, in- 
cludes CP/M ROM. good 
condition. #S030-$1500 
SPECIAL PRICE. 
ICOM PROM and 8" Disk 
lor SOL FDOS-This disk 
requires an ICOM S-100 
Disk Controller installed in 
an S-100. #D031-$160. 
ICOM CP/M on 8" Disk for 
S-100— Requires an ICOM 
S-100 controller in an S-100 
cabinet, #D032$100 
ICOM FDOS-II on 8" Disk 
for S-100— Requires an 
ICOM S-100 controller in an 
S-100 cabinet, no documen- 
tation. #0033$ 180 each. 
ICOM FDOS-II on 5%" Disk 
lor S-100— Requires an 
ICOM S-100 Mini-Floppy 
Controller in an S-100 
cabinet. #D034-$168. 
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IMSAI HARDWARE 

IMSAI 8800 Mainframe 
S-100— Excellent condition. 
#O0087$839 

IMSAI 80/15 S-100 Develop- 
ment System— Partially 
assembled, needs a CPU 
card, excellent condition 
#S0088-$525 as is SPECIAL 
PRICE. 

IMSAI 80/15 S-100 Develop- 
ment Syatem— Kit, main- 
frame cover missing, needs 
a CPU card, excellent con- 
dition #S0089-$500 as is. 
SPECIAL PRICE- 
IMSAI 4K RAM card-S-100. 
good condition. #00055- 
$89.60 



IMSAI 

SERIAL I/O CARDS 
l Mf"*'«*rial I/O card 
2 S O(.0p.L~>r1s,full 



'ot/f 



RBfe» . v «r J, good 
condition. #Du»v .188. 
IMSAI Serial I/O card 2-2 
(kit)— Two serial ports, full 
RS-232 control, S-100, new. 
#00091 $124 
IMSAI Serial I/O card 2-1 
(kit)— One serial port, full 
control RS-232 control, 
S-100, new #DO092$100. 



IMSAI 

PARALLEL I/O CARDS 
IMSAI Parallel I/O card 
4-4 — Four parallel ports, 
S100, excellent condition. 
#00093-$186 

IMSAI Parallel I/O card 4-1 
(kit)— One parallel port, 
S-100, new #D0094-$74 40. 



IMSAI SOFTWARE 

IMSAI IMDOS V2.02 on 8 
Disk for S-100— No 
documentation, but this is 
apparently IMSAI's version 
ot CP/M for S-100 systems 
with an IMSAI Disk Con- 
troller #O0056-$96 each 
IMSAI BASIC 9A This 
BASIC is for an S-100 
system with a TARBELL 
cassette interface #00057- 
$22 

TARBELL Cassette Inter- 
lace (kit)— Kansas City In- 
terface, Tarbell Phase en- 
coding, S-100. new #00064- 
$96 



^ J^J 20°/o OFF 

MAIL ORDER MICROS ° 

Depc MB0 e PO Box 427 e Marlboro NH 03455 

Phone [603)924 3041 . ^awee*. JB ■ bhVB 

Inventory ^j A J I 
Clearance CD /~\l L_ 



>HONE INTERFACE 

Novation Modem 
•3102A— Connects to any 
phone, originate only, good 
condition. #S021-$165 each 
SPECIAL PRICE 
Nov'tion Modem 
•31 C«i ,, *** 'o any 

P h. soi -0our .te 

good condition. — 2$200 
each SPECIAL PRICE 
Novation Modem #43— Con- 
nects to any phone, 
originate only, good condi- 
tion. #S023-$155 SPECIAL 
PRICE 



VECTOR GRAPHIC 
S-100 

I Vector Graphic ROM/RAM 
card— 12K empty ROM 
sockets. IK RAM. excellent 
condition #D0078-$ 119.60 

i Vector Graphic Analog In- 
terface—Allows hobbyist to 
interlace analog experi- 
ments, S 100. new #D0079 
$79.20 

I V' _ ~ •■•Me Analog In- 

h s °LDO(j T < 



S100. new .w. 



55 60 



TDL ZAPPLE 

2 TDL Z-80 8K BASIC -This is 

for a Z-80 system with a 
ZAPPLE Monitor #D0071 
$30 
1 U -"' c ** Moni- 

tc 5 OLDOUT ,,arta 

system with «_/..-,. _ »16. 

3 TDL ZAP 1K Monitor— Sim 
pie monitor #00073 $12. 



NEXT MONTH . . . 

WATCH THIS SPACE 
FOR 20% (OR MORE) 
DISCOUNTS ON 
POPULAR BRAND 
NAME SOFTWARE 
FROM MOMS. 



Inventory 
Clearance 



BOOK CLEARANCE 

UP TO 50% OFF 

T,tke a Chance with Your Calcula- 
tor (Lithium-publisher) #BK1002 

—was $8 95, now $4 50 
Chemistry with a Computer (Edu- 

comp-publisher) #BK1010— was 

$9.95. now $5.00 
Computer Dictionary (Camelot- 

pubhsher) #BK1018- was $5.95. 

now $3 00 
FORTRAN Programming (Came 

lot-publisher) #BK1019-Was 

$7.95. now $4 00 
FORTRAN Workbook (Camelot- 

publisher) #BK1020— was $4 95. 

now $2 50 
A Quick Look at BASIC (Cameiot- 

publisher) #BK1043-was $4 95, 

now $2 50. 



rDL SOFTWARE-DISK 

TDL FDOS 4 SuperBASIC 
on 8" Disk— This requires 
an ICOM Disk Controller 
and at least 20K of memory, 
plus a ZAPPLE Monitor in 
an S-100 Cabinet (Altair, IM- 
SAI, etc) #D0065-$137 
TDL System Software on 
5'V disk— This set ot 
system software requires a 
North Star Disk Controller, 
a TDL Systems Monitor 
Board I, and consists of 
12K BASIC, Relocator/Link 
ing Loader, Z-80 Editor, and 
Text Processor #00066- 
$183 

TDL System Software on 
5'/«" disk— This is the same 
as above, but does not re- 
quire the Systems Monitor 
Board I #O0067-$200 
TDL System Software on 
5'/4" disk— Again, as above, 
but requires a HELIOS Disk 
Controller and the TDL 
Systems Monitor Board II 
(not I). #00068-$ 183 



HONEYWELL 

15 Honeywell ASP. 33 Communi- 
cations Consoles with TTY, 
paper tape reader and punch 
Used, working when removed 
trom service Shipped freight 
collect or you pick up. Weight | 
300 lbs $395 Order »P006 



MOUNTAIN 
HARDWARE 

Mountain Hardware AC 
Controller— Remote AC out- 
let control. S-100. new 
#0040-$ 100 each. 
Mountain Hardware remote 
outlet— Remote module tor 
above, two channels, new 
#0041 $72 each 



HEURISTICS 

SPEECH LAB 
Heuristics Speech Lab- 
s' 100. used, fair condition 
#S042 $100 as is SPECIAL 
PRICE 

Heuristics Speech Labs- 
S-100. new #D043-$151 
each 



SHUGART 

MINIDISK DRIVES 
Shi -i MiniDisk Drives 



suppi 



?or 



-bie for 



' SQi ^- and power 
uppiy. 
North Star, gv." ' jndition 
#S036-$320 SPECIAL 
PRICE 

Snugart MiniDisk Drives 
— No cabinet, good condi 
tion #SO37-$3O0 each 
SPECIAL PRICE. 
Power Supplies for 
above— good condition 
#S038-$30 each SPECIAL 
PRICE 



Prices include 20% discount 
PRICE includes more than 20°' 



SPECIAL 

discount 



Quantities are limited, immediate refund if 
ordered item is no longer available "Phone 
answered by machine Orders taken with 
credit cards Questions answered by mail 

TERMS: FOB Marlboro, NH USA. Limited 
stock, everything guaranteed as described, 
you pay postage on returns PRINT orders 
clearly. Minimum order $10 plus $2 50 ship- 
ping and handling charge in USA only 
DOUBLE THAT ELSEWHERE Orders over 
$50 add 5% for shipping in USA, 10° o 
elsewhere (we will refund excess) Orders 
shipped UPS or insured mail only. No CODs 
please Send US funds by check or money 
order For credit card purchases, add 4%. 
list AE. MC or VISA, number, and expiration 
date Mail to MOM's Department M80, PO 
Box 427, Marlboro NH 03455 

Condition of Inventory: 

New = original container 

Excellent = new, but not in original 
container 

Good ■ tested or used in store 



Qty 



Catalog* 



Description 



Delivery 3 to 6 weeks 
Enclosed $ 

Bill AE MC 

Card no 



MAIL ORDER MICROS .-- 

immctwi.i4i'tM .>i iiM Mei 

Pfcon.: (S03) »?4 3041 



Unit Price 



Total 



Shipping & Handling 
Credit Card ( + 4%) 
Total 

Exp Date 



Name 
Address 
City 



State 



Zip 



v* Reader Service— see page 147 



Ship 



UPS 



Insured mail Signature 
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basic basic 



• PROGRAMMING THE Z-80- BK1 122 -by Rodnay Zaks. Here is 
assembly language programming for the Z-80 presented as a pro- 
gressive, step-by-step course. This book is both an educational 
text and a self-contained reference book, useful to both the begin- 
ning and the experienced programmer who wish to learn about the 
Z-80. Exercises to test the reader are included. $14.95.* 

• Z-80 SOFTWARE GOURMET GUIDE AND COOKBOOK - BK1045 
-by Nat Wadsworth. Scelbi's newest cookbook! This book con- 
tains a complete description of the powerful Z-80 instruction set 
and a wide variety of programming information. Use the author's 
ingredients including routines, subroutines and short programs, 
choose a time-tested recipe and start cooking! $14.95.* 



»W*4.ui 



• LEARNING LEVEL ll-BK1175-by David Lien. Written 
especially for the TRS-80, this book concentrates on Level II 
BASIC, exploring every important BASIC language capability. 
Updates are included for those who have studied the Level I 
User's Manual. Sections include: how to use the Editor, dual 
cassette operation, printers and peripheral devices, and the 
conversion of Level I programs to Level II. $15.95.* 



• BASIC BASIC (2ND EDITION)- BK1026- by James S. 
Coan. This is a textbook which incorporates the learning of 
computer programming using the BASIC language with the 
teaching of mathematics. Over 100 sample programs il- 
lustrate the techniques of the BASIC language and every sec- 
tion is followed by practical problems. This second edition 
covers character string handling and the use of data files. 
$9.45.* 



^. 



• MICROCOMPUTING CODING SHEETS Microcomputing's dozen or so programmers wouldn't try to work without these handy 
scratch pads, which help prevent the little errors that can cost hours and hours of programming time. Available for program- 
ming is Assembly/Machine Language (PD1001), which has columns for address, instruction (3 bytes), source code (label, op 
code, operand) and comments; and for BASIC (PD1002) which is 72 columns wide. 50 sheets to a pad. $2.39.* 

• HOBBY COMPUTERS ARE HERE! - BK7322 - If you (or a friend) 
want to come up to speed on how computers work . . . hardware 
and software . . . this is an excellent book. It starts with the fun- 
damentals and explains the circuits, and the basics of program- 
ming. This book has the highest recommendations as a teaching 
aid for newcomers. $4.95.* 

• THE NEW HOBBY COMPUTERS- BK7340- This book takes it 
from where "HOBBY COMPUTERS ARE HERE!" leaves off, with 
chapters on Large Scale Integration, how to choose a micropro- 
cessor chip, an introduction to programming, low cost I/O for a 
computer, computer arithmetic, checking memory boards . . . and 
much, much more! Don't miss this tremendous value! Only $4.95.* 

• HOW TO BUILD A MICROCOMPUTER- AND REALLY UNDER- 
STAND IT-BK7325-by Sam Creason. The electronics hobbyist 
who wants to build his own microcomputer system now has a prac- 
tical "How-To" guidebook. This book is a combination technical 
manual and programming guide that takes the hobbyist step-by- 
step through the design, construction, testing and debugging of a 
complete microcomputer system. Must reading for anyone desir- 
ing a true understanding of small computer systems. $9.95.* 

• TOOLS & TECHNIQUES FOR ELECTRONICS- BK7348- is an easy-to-understand book writ- 
ten for the beginning kit builder as well as the experienced hobbyist. It has numerous pictures 
and descriptions of the safe and correct ways to use basic and specialized tools for electronic 
projects as well as specialized metal working tools and the chemical aids which are used in 
repair shops. $4.95.* 

Use the order card in the back of this magazine or itemize your order on a separate piece of paper and mail to 

BO Microcomputing Bookshelf • Peterborough NH 03458. Be sure to include check or detailed credit card information. All orders add S 1 .00 handling. 

Please allow 4-6 weeks for delivery. Questions regarding your order? Please write to Customer Service at the above address. 
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FOR TOLL FREE ORDERING CALL 1 -800-258-5473 
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•THE BASIC HANDBOOK - BK1 1 74 - by David Lien. This book is 
unique. It is a virtual ENCYCLOPEDIA of BASIC. While not favoring 
one computer over another, it explains over 250 BASIC words, how 
to use them and alternate strategies. If a computer does not 
possess the capabilities of a needed or specified word, there are 
often ways to accomplish the same function by using another 
word or combination of words. That's where the HANDBOOK 
comes in. It helps you get the most from your computer, be it a 
"bottom-of-the-line" micro or an oversized monster. $14.95.* 

• ADVANCED BASIC -BK1000- Applications and problems by 
James Coan is for those who want to extend their expertise with 
BASIC. Offers advanced techniques and applications. $7.95.* 

• PIMS: PERSONAL INFORMATION MANAGEMENT SYSTEM - 

BK1009 — Learn how to unleash the power of a personal computer 
for your own benefit in this ready-to-use data-base management 
program. $9.95. * 

• PAYROLL WITH COST ACCOUNTING - IN BASIC-BK1001 - 

by L. Poole & M. Borchers, includes program listings with remarks, 
descriptions, discussions of the principle behind each program, 
file layouts, and a complete user's manual with step-by-step in- 
structions, flowcharts, and simple reports and CRT displays. 
Payroll and cost accounting features include separate payrolls for 
up to 10 companies, time-tested interactive data entry, easy cor- 
rection of data entry errors, job costing (labor of distribution), 
check printing with full deduction and pay detail, and 16 different 
printed reports, including W-2 and 941. $20.00.' 

• LOW-COST, PERSONAL COMPUTER-BASED INVESTMENT DECISION SYSTEMS- BK1 101 -Use this guidebook by Man 
Computer Systems, Inc.'s president, Jerry Felsen, to develop inexpensive personal computer systems that can help you make 
better investment decisions. $15.00.* 

• HOW TO MAKE MONEY WITH COMPUTERS- BK1003- In 10 information-packed chapters, Jerry Felsen describes more 
than 30 computer-related, money-making, high profit, low capital investment opportunities. $15.00.* 




^RETURN 



F.Ct»W |Boka ' 




• SOME COMMON BASIC PROGRAMS -BK1053- published by 
Adam Osborne & Associates, Inc. Perfect for non-technical com- 
puterists requiring ready-to-use programs. Business programs, 
plus miscellaneous programs. Invaluable for the user who is not 
an experienced programmer. All will operate in the stand-alone 
mode. $12.50 paperback.* 

• WHAT TO DO AFTER YOU HIT RETURN - BK1071 - PCC's first 
book of computer games ... 48 different computer games you can 
play in BASIC . . . programs, descriptions, many illustrations. 
Lunar Landing, Hammurabi. King, Civel 2, Qubic 5. Taxman. Star 
Trek. Crash. Market, etc. $10.95.* 

• BASIC COMPUTER GAMES -BK1074- Okay, so once you get 
your computer and are running in BASIC, then what? Then you 
need some programs in BASIC, that's what. This book has 101 
games for you from very simple to real buggers. You get the 
games, a description of the games, the listing to put in your com- 
puter and a sample run to show you how they work. Fun. Any one 
game will be worth more than the price of the book for the fun you 
and your family will have with it. $7.50.* 

• SIXTY CHALLENGING PROBLEMS WITH BASIC SOLUTIONS 
(2nd Edition)- BK1073- by Donald Spencer, provides the serious 
student of BASIC programming with interesting problems and 
solutions. No knowledge of math above algebra required. Includes 
a number of game programs, as well as programs for financial in- 
terest, conversions and numeric manipulations. $6.95.* 



Use the order card in the back of this magazine or itemize your order on a separate piece ol paper and mail lo 
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SO PREVIEW 



WHAT TO LOOK FOR IN THE APRIL 



SO 



PENCIL v 
SCRIPSIT 

The reigning champion of 
word processing software, 
Michael Shrayer's Electric Pen- 
cil, has a challenger — Scripsit 
from Radio Shack. Next month 
we have an in-depth evaluation 
of both packages. Find out 
what they can and can't do. 

MORK& 

MINDY 

MONITOR 

Tired of carrying your Radio 
Shack monitor from place to 
place? With this article you can 
find out how to use any televi- 
sion set as a computer monitor. 



REVERSE 
OEDIV 

More than an hour or two at 
the keyboard of your system is 
liable to result in tired fingers 
and bleary eyes. We don't know 
what to do about your fingers, 
but Reverse Video can help 
ease the strain on your eyes. 
Black lettering on a white 
screen makes working with a 
computer like reading a book. 



BUILD A 
LIGHT PEN 

Your keyboard is not the only 
way of interacting with the 
computer. With next month's 80 
you can build a simple Light 
Pen, and just point at the 
screen! Complete software is 
included for using the device, 
both in BASIC and Assembly 
Language. 



TRUE CONFESSIONS 

Purchase of a TRS-80 can produce a dramatic change in both 
life-style and character. Staying up into the wee small hours of the 
morning, talking in BASIC to strangers in the street . . . Follow the 
sad tale of a member of Computers Anonymous. It could happen to 
you! 



ASSEMBLY 
LANGUAGE 

If you know what 50H means 
then this new column is not for 
you. For the remaining 80 per- 
cent of our readers we are start- 
ing an Assembly Language col- 
umn in the April edition. 
Through worked example and 
clear explanation this series 
will cover Assembly Language 
A-Z. By the way, 50H is '80' in 
hexadecimal. 



ALL THIS 

PLUS 

MUCH MORE! 
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Ask for Instant Software at a computer store near you 



Alabama 

Anderson Computers 

31M University Or. Huntsviiie 

Computerland of Huntsviiie 

3020 University Dr.. Huntsviiie 

Oksnsky Bros 

3763 Airport Blvd.. Mobile 

Arizona 

Hem Shack 

450 6-A N. 16th St.. Phoem« 

Millets TV & Radio 

621 East Broadway. Mesa 

California 

Byte Shop ot Fairfield 

67 Marina Center St.. Sulsun City 

Byte Shop 

8038 Clairmont Mesa Blvd.. 

San Diego 

Byte Shop ot Mt View 

1415 West El Camlno Real. Mt View 

Byte Shop ot Sacramento 

6041 Greenback Ln„ Citrus Heights 

Capital Computet Systems 

3396 El Camino Ave . Sacramento 

Computers Made Easy 

619 East Ave Q9, Palmdale 

Computer Store ot San Leandro 

701 MacArthui Blvd.. San Leandro 

Computer World 

6791 Westminster Ave . Westminster 

Computerland 

16720 S Hawthorne, Lawndale 
Computerland ot San Francisco 

117 Fremont St., San Francisco 

Computerland ot W LA 

6640 La Cianega Blvd Inglewoofl 

Coast Electronics 

31 IB No Main St . Morro Bay 

Hobby World 

19511 Business Ctr Dr , Unit 6 

Boith ndge 

I C E House Inc. 

398 North E St . San Bernardino 

Microsun Computer Center 

2969 North Main St.. Walnut Creek 

OpampTechnicai Books 

1033 N Sycamore Ave.. Los Angeles 

Q l Computers. Inc. 

15818 Hawthorne Blvd., Lawndale 

Radio Shack Dealer 

3250 Mira Mesa Blvd., San Diego 

Santa Rosa Computer Center 

604 7th St., Santa Rosa 

Silver Spur Elect Comm 

13552 Central Ave., Chino 

The Computer Store 

820 Broadway, Santa Monica 

Colorado 

Byte Shop 

3464 S Acoma St.. Englewood 
Colorado Computer Systems 
311 W 74th Ave . Westminster 

Computerland ol Norlh Denver 

8749 Wadswonh Blvd Arvada 

The Computer Broker 

2300Welton SI Denver 

The Computer Siore 

2300 Welton St . Denver 

Connecticut 

American Business Computers 

454 Thames St . Groton 

Computerlab 

130 Jefferson. New London 

Computerland 

1700 Post Rd.. Fairfield 

Computer Works 

1439 Post Rd. E Liberty Plaza. 

Westport 

D.C. 

The Program Store 

4200 Wisconsin Ave . N W.. 

Washington DC 



Florida 

Adventure International 

200 Bald Cypress Ct.. Longwood 

AMF Electronics 

11146 N 30th St. Tampa 

Boyd Ebert Corporation 

1328 West 15th St , Panama City 

Computer Center 

6678 Central Ave., St Petersburg 

Computerland of Ft. Lauderdale 

3963 N Federal Hwy . Ft Lauderdale 

Computerland of Jacksonville 

2777-6 University Blvd W 

Jacksonville 

Computer Shack 

3336 Beach Blvd . Jacksonville 

Curtis Waters Enterprises 

236 Talbot Ave Melbourne 

Heath Kit Electronic 

4705 W 16th Ave Center. Hialeah 

Sound ideas 

2201-CNW 13th. Gainesville 

Ukatan Computer Store 

Airport Rd Destln 

Williams Radio & TV Inc. 

2062 Liberty St . Jacksonville 

Georgia 

Atlanta Computer Mart 

Atlanta 

Computerland ot Atlanta 

2423 Cobb Parkway. Smyrna 

Hawaii 

Computerland of Hawaii 
567 N. Federal Hwy. Honolulu 
Radio Shack Assoc Store 
1712 S King St . Honolulu 

Idaho 

Electronic Specialists 
8411 Fairview Ave Boise 
Illinois 

Bloommgton Normal 

Computer Works 

124 E Beaufort, Normal 

Computerland 

4507 North Sterling. Peoria 

Computer Station 

3659 Nameokl Rd., Granite City 

Midwest Micro Computers. Inc 

708 S Main St Lombard 

Indiana 

Computer Cenier of South Bend 
51591 US 31 North. South Bend 

Iowa 

Memory Bank 

4128 Brady St .. Davenport 

Kansas 

Central Kansas Computers 

6 S Broadway, Herlngton 

Louisiana 

Computer Shoppe Inc. 

3225 Danny Park Suite 222, Metalne 

Maryland 

Jack Fives Electronics 

4608 Deoilen Circle. Plkesville 

The Comm Center 

9624 Ft Meade Rd Laurel 

Massachusetts 

ComputerCity 
5 Dexter Row, Chanestown 
Computerland ol Boston 
214 Worcester Rd , Wellesley 
Computer Packages Unlimited 
244 W Boylston St., West Boylston 
Lighthouse Computer Software 
14 Fall River Ave . RehoBath 
New England Electronics Co 
679 Highland Ave . Needham 

The Computer Store 

120 Cambridge St., Burlington 

Tufts Radio & Electronics 
206 Mystic Ave , Medford 



New York 

Aristo Craft 

314 Fifth Ave . NYC 

Bits & Bytes 

2800 Straight Rd . Fredonia 

Computer Corner 

200 Hamilton Ave , White Plains 

Computet Factory 

485 Lexington Av*.. NYC 

Computer House, Inc 

721 Atlantic Ave . Rochester 

Computerland of Nassau 

79 Westbury Ave , Carle Place 

Computer World 

519 Boston Post Rd.. Port Chester 

Comtek Electronics, inc 

2666 Coney Island Ave . Brooklyn 

Comtek Electronics, inc. 

Staten Island Man 

Store 220A. Staten island 

Home Computer Center 

671 Monroe Ave.. Rochester 

Key Electronics 

Schenectady 

Mr Computer 

imp. Plaza. Rte 9, Wappingers Falls 

Softron Systems 

308 Columbia Turnpike. Rensselaer 

The Computer Tree Inc. 

409 Hooper Rd.. Endweli 

Upstate Computer Shop 

629 French Rd . Campus Plaza 

New Hartford 

North Carolina 

Byte Shop of Raleigh 

1213 Hillsborough St., Raleigh 

Ohio 

Aitair Business Systems. Inc. 
5252 North Dixie Dr Dayton 
Astro Video Electronics 
504 E Main St.. Lancaster 
Cincinnati Computer Store 
4816 Interstate Dr., Cincinnati 
Computerland 
4579 Great Northern Blvd . 
N Olmstead 

Computerland 

1288 Som Rd . Maytleid Heights 
Computer Store o' Toledo 

18 Hillwyck Dr . Toledo 

Forbees Microsystems Inc 

35 N Broad. Fairborn 

Microcomputer Center 

7900 Paragon Rd.. Dayton 

Micro-Mini Computer World 

74 Roblnwood. Columbus 

21 si Century Shop 

16 Convention Way. Cincinnati 

Oklahoma 

Vern Street Products 
Radio Shack Dealer 
114W Tall St.. Sapulpa 

Oregon 

Computerland ol Portland 
12020 S W Main St., Tlgard 
Computer Pathways Unlimited, Inc 
2151 Davcor St S.E . Salem 

Pennsylvania 

Artco Elect. 

302 Wyoming Ave., Kingston 

Artco Elect 

Back Mountain Shop Ctr. 

Shavertown 

Computer Work shoppe 

3848 William Penn Hwy, Monroeville 

Computerland of Harnsburg 

4644 Carlisle Pike. Mechanicsburg 

Erie Computer Co 
2127 West 8th St Erie 
Personal Computer Corp 
24-26 West Lancaster Ave . Paoli 

Personal Computer Corp 

Frazer Mall. Lancaster Ave., Frazer 



Instant Software Inc 

Peterborough, N.H. 03458 603-924-7296 



Michigan 

Computer Canter 

28251 Ford Rd.. Garden City 

Computer Connection* 

38437 Grand River. Farmlngton Hills 

Computerland of Grand Rapids 
2927 28th St S E . Kentwood 
Computerland of Rochester 
301 S. Livernols. Rochester 
Computerland of Southfleid 
29673 Northwaatern Hwy., South'leld 

Computer Mart 

560 W 14 Mile Rd . Clawson 

Hobby House 

103S W Territorial Rd . Battle Creek 

Ye Olde Teacher Shoppe 
1823 Wltmyre St.. Ypallantl 

Minnesota 

Computerland of Hopkins 

113lfiHwy F. Hopkins 

Zim Computers 

5717 Xerxes Ave N Brooklln Canter 

Mississippi 

Dyers, inc 

200 E Main St.. West Point 

Missouri 

Computervan. inc. 

51 Fiorlasant Oaks Shopping Canter 

Florissant 

Consolidated Software 

16501 Greenwald Court. Beiton 

Montana 

infermountaln Computer 
529 So 9th St . Livingston 

Personal Computer 

121 Red Oak Dr., Carl Junction 

The Computer Store 

1216 16th St W. MB, Billings 

Nebraska 

Computerland of Omaha 
11031 Elm St., Omaha 
Midwest Computer Co Inc 
8625 i St . Omaha 
Midwest Computer Co Inc 
4442 S. 84th it, Omaha 
Midwest Computer Co. Inc 
4403 S 87th St . Omaha 

Nevada 

Century 23 

4566 Spring Mountain Rd . Las Vegas 

New Hampshire 

Bitsnbyles Computer Center 

568 Pleasant Si , Concord 

ComputerCity 

1525 S Willow, Manchester 

Portsmouth Computer Center 

31 Raynes Ave , Portsmouth 

New Jersey 

Computer Encounter 

2 Nassau St., Princeton 

Computerland 

36 Plaza Rte M. W Paramus 

Computer Mart ol NJ 

501 Rte. 27. Iselin 

Radio Shack/J&J Electronic 

Mansfield Shopping Ctr 

Rt 57 Allen Rd , Hackettstown 

The Bargain Brothers 
Glen Roc Shopping Center 
216 Scotch Road. Trenton 

New Mexico 

legey and Associates 

2908 Tahiti Ct. N.E . Albuquerque 

South West Computer Center 

121 Wyatt Drive. Suite 7, Las Cruces 

South Dakota 

CB Radio Shack 

2ist and Broadway Yankton 

Tennessee 

Computerlab 

671 S Mender- Hall Rd.. Memphis 

H1H Electronics Inc 

509 N Jackson St . Tullahoma 

Texas 

Computercratt Inc 
3211 Fondren. Houston 

Computer Port 

926 N Collig. Arlington 

Houston Microcomputer Tech 

5313 Blssonet, Bell Aire 

Interactive Computers 

7620 Dashwood Rd . Houston 



K.A. Elect. 

9090 Stemmon* Frwy . Dallas 

Pan American Elect Inc. 
1117 Conway, Mlaalon 

Ram Micro Systems 

6353 Camp Bowie Blvd , Ft Worth 

Virginia 

Horn* Computer Canter 

2927 Virginia Beach Blvd 

Virginia Beach 

Southslde Radio Comm 

135 Pickwick Ave.. Colonial Heights 

Washington 

American Mercantile Co Inc 

2418 1st Ave. S . Seattle 

Computerland o' South King Co 

1500 S 336 St Suite 12 

Federal Way 

Personal Computera 

S 104 Freva. Spokane 

Ye Old Computer Shop 

1301 G Washington, Richland 

West Virginia 

The Computer Corner Inc 

22 Beechurst Ave.. Morgantown 

The Computer Store 

Municipal Parking Bidg . Charleston 

Wisconsin 

Byte Shop Of Milwaukee 

6019 West Layton Ave., Greenfield 

Wyoming 

Computer Concepts 

617 W 16th St , Cheyenne 

Puerto Rico 

The Microcomputer Store 

1568 Ave. Jesus T Pinero 

Caparra Terrace 

Guam 

The Fun Factory 

851 Marine Dr., Tamuming 

Canada 

CANADIAN DISTRIBUTORS: 

Micron Distributing 

409 Queen St . W Toronto, Onl 

M5V 2A5 

Computerland of Winnipeg 

715 Portage Ave . Winnipeg. Man. 

Compumart 

411 Roosevelt Ave , Ottawa, Ontario 

Computer Marl. Ltd. 

1055 Yonge St . Suite 206 

Toronto. Ontario 

Gaiactia Computers 

103rd Ave . Edmonton, Alberta 

Micromatic Systems Inc 

101 8136 Park Rd.. Richmond, B C 

Micro Shack of W Canada 

333 Park Street. Reg ma. Sask 

Orthon Holdings Lid. 

12411 Stony Plain Road 

Edmonton, Alberta 

Total Computer Systems 

A|ax. Ontario 

England 

Tamays & Farr Ltd 

4 Morgan Si . London 

France 

Sidag 

45 Rue de la Chapelle, Pans 

Slvea s a 

20, Rue de Leningrad. Pans 

Italy 

HOMIC s r.l. 

Piazza De Angeii 1. Milano 

West Germany 

Electronic Hobby Shop 
Kaiserstr 20. Bonn 
MicroShop Booansee 
Markstr 3, 7778 Markdorf 

Australia 

Computerware 

62 Paisley St . Footscray VIC 

Deforest Software 

36 Glen Tower Drive 

Glen Waverly, VIC 

Sotlromcs Micro Systems 

Lindtleld 

Sure-Load Software 

PO Box 26, Weston, A.CT. 

South Africa 

Eddie Talberg 

P O Box 745, Johannesburg 




STARTER KIT 

EXATRON STRINGY FLOPPY! FOR THE TRS-80 



.mended initial purchase: 

Exatron Stringy Floppy with Level III BASIC 
5 Wafers each: 5'. 10', 20', 50' 
Bus Extender, 2-tur-l 
ESF Machine Language Monitor 
(Plus shipping and tax if applicable) 



S249.50 

40.00 

15.00 

9.95 

S314.45 



SPECIAL PRICE FOR THIS STARTER KIT 

Sales lax 'California only i 
Shipping and Handling 

TOTAL 



$299.50 



3.00 



For more information see the current Exatron Stringy Floppy Owners Association Newsletter in Microcomputing 

Stringy Floppy is a trademaik of Exatron Corporation. 

HOT LINE (For CaiK Outside ca i 800-538 8559 



If you have any questions about the product, about Exatron, or 
ESFOA, please call the Hot Line. Address letters to ESFOA. 3S59 
Ryder St., Santa Clara, CA 95051. 







r 



exatron 

3555 Ryder Street ■ Santa Clara. California 95051 
(408) 737 7111 



